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REGISTRATION AND SUBSCRIPTIONS 



Customers must register as a Business Service if the telephone number nominated for the use 
of the VIATEL Service is a Business Service and/or VIATEL is to be used wholly or mainly for 
Business, Commercial, Industrial, Professional or Government purposes. (Charges incurred 
on Business Services are usually tax deductible.) 



Where a Business Telephone Service is nominated for the use of VIATEL, but the use of VIATEL 
is wholly or mainly for Non-Business purposes, the Customer may be registered as a Non- 
Business VIATEL subscriber, providing the registration is taken out in the Customer*B personal 
name and address and not a Business name. 



Telecom Australia will register the Business or Individual named under Section 1 as a 
Customer of Hs VIATEL Service and will provide the Customer with a confidential Customer 
Identity Number and Personal Password by mail. 



Where billing address is indicated, bills and bill related correspondence ONLY will be 
forwarded to that address. All other correspondence will be forwarded to address under 
Section 1. 



Customers should advise VIATEL of any change of address as soon as possible. 



If you lose your Customer Identity Number and/or Personal Password, you must advise 
VIATEL in writing before new numbers are issued. Our postal address Is: Freepost 20, Box 
188C. GPO Melbourne, Vic. 3001. FOR SECURITY REASONS REPLACEMENT NUMBERS 
AND PASSWORDS CANNOT BE PROVIDED OVER THE TELEPHONE. 



Customers of VIATEL acknowledge that their name and registered VIATEL Number will appear 
on trie VIATEL Mailbox Directory and that Service Providers and/or other registered VIATEL 
users may send messages to their VIATEL number. 

Telecom Australia undertakes no responsibility in relation to the accuracy of the information or 
service provided by Service Providers on VIATEL. Telecom Australia will not be responsible for 
any loss or damage arising out of or in any way connected with the use of this information or 
service. 



Attention ts also drawn to the terms and conditions governing the provision of information and 
services by some Service Providers. These terms and conditions may, in some cases, include a 
disclaimer absolving the Service Provider from liability regarding information and services 
supplied on VIATEL. The means of accessing these terms and conditions is set out on the 
Service Provider's Index Page on VIATEL 

Should you require any changes to your existing telephone equipment (e.g. new exchange 
line, additional socket), ptease contact your local District Telecom Office. 



In a small number of cases VIATEL reception may be unsatisfactory. Correction may incur an 
additional charge. 
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users _ especially Tandy, IBM 
and Viatel users. 

The material is supplied by 
the users. It is volunteered 
an<l remains the property of 
the individual authors. 

Authors can be contacted by 
placing your letter in a 
self addressed, stamped 
envelope care of GOLDSOFT. 
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The T3400 LT 

This month, Clubroom Is being 
written on the <very> new T140G 
LT. 

I can't remember being so 
impressed with a computer for a 
long while. 

This little cosputar appears 
to be 100% T1000 compatible, has 
768K of RAM on board, has o full 
size 7G key keyboard, has n very 
legible backllt LCD screen and a 

host of other features including 

two 3.5" 720K drives. 

The CF1I is the SEC V-20, which 
is an 6038 equivalent, operating 
at 7. lOKhz. 

But it is not the 

specifications that Impress me! 

What Impresses me with the 
T1400 Is its 'usoolli-ty' . I can 
pick this machine up - It is 
about twice the size of the T20Q 
- and 1 can take it Just about 
anywhere! 

And when 1 get there - or even 
on the way there, I have total 
access to the files/date I may 
have been working on in the 
gf f ice. 

The biggest boon fai me 

personally is that the computer 
Will even run our "Gertie" 
program - the big number 

cruncher that operates our 
Bulletin Boards on Viatel - AND 
it runs Gertie TWICE as fast!!! 

So now, I can go Interstate 
and update Viatel automatically 
from wherever I am! 



The Leisure Expo CQld) 

In October we attended the 
Brisbane Leisure Expo which was 
held in the PNA grounds In 

Brisbane. 

This was the first time the 
Expo has been held, but it looks 
set to become a regular event. 

The Leisure Expo is different 
to tho typa nf show we usually 
attend, In that the focus was on 
Leisure - not on computers. 

Same of the other displays 
included a GyrocDpter; Exercise 
Weights - twlth a video that had 
Karen 4 Keredlth going!); custom 
made vehicles gf many types; 
custom made beds; computer games 
machines and a Hovercraft! So 
it was a very interesting 
display. 

Ve found ourselves not on the 
Tandy display for a change! 

Instead we were on the 
Consider I rig Computers stand, new 
advertisers of ours, and 

associates of the group who 
supply our new Public Access 
Videotex machines. 

Compared to computer shows, 



this show was not well attended 
- still, it was fun! ! 

The next show we do will be 
the Brisbane Computer Show, 
which is always well attended - 
hope to see some of you at that 
one! 

Posture and Computers 

One of the companies on our 
stand at the recent Expo, was 
CHA:r m EHG" Co. Pty Ltd. (Yea - 
their real name! "> 

They supply seating for 

computer users, and the line of 
chairs available really proves 
that far every computer user, 
there is a chair that he/she 
will feel comfortable with., and 
more importantly, that will 

assist the user's posture and 
reduce the possibility of 

contracting RSI. 

Next month we will feature a 
selection of photos of these 

chairs. 

Prices are about the same as 
for a good normal chair, so 
there really Is no excuse for 
that sore back anymore! 

Blaxland Computer Services 

Blaxland Computer Services 
have always been the place to 
shop in the Sydney area, for tap 
quality back up and support. 

This Christmas they have 
brought in a range of new 
software for the CoCo 3 and for 
the T 1000 Ca IBM compatibles). 

: terns for "the CoCo 1 1 ko 

CoCoMax 3, CalorMax 3, CoCo 

Graphics Designer, and for the 
T1000 like The Shareware Book, 
The LPC Series, In House 

Accounting, and Ability all make 
a phone call or visit to 

Blaxland well worth the effort. 

3ruce and Roger are the real 
gentlemen of the Industry too - 
so you have no worries when you 
deal with Blaxland Computer 
Supplies! 

Yes, You Can Charge It Monthly! 

We've been asked so often for 
this service, we have decided to 
do it- 

You have always been able to 
permanently book your CoCaOz and 
Softgold on Tape Disk on our 
menthly charging system, but 
Iiora now on, we can alt»u charge 
you monthly far your magazine - 
when it is purchased with CoCoOz 
or Softgold on Tape or Disk. 

All you have to do is tell us 
your credit card number and we 
will ship your magazine 4 tape 
with all the subscriber 

magazines at the start of each 



month until you tell us to stop! 

Ve can't bill for magazines 
only unfortunately, because of 
the credit card system, which 
makes transactions below $10 
uneconomic. 

So now, we can auto bill you 
not Just for your favourite tape 
gr disk - but also for your 

magazluu - when purchased with 

that tape or disk! 
User of the Month 




David Hill is a KC 10 user 
from Qakville, NSV. David is 
seen here with Jeff Bell In the 
Dark Roan at school 

David recently submitted a 
very mysterious program for the 
HC 10 called "A Miss at Goal". 

Ve'll have to wait until that 
one Is printed in the magazine 
to see wr.at that Is all about!! 

More MS DOS! I ! 

As you can see, this magazine 
is starting to become more MS 
DOS oriented - not that this 
means a change of editorial 
policy. because we've always 

said that this Is what we wanted 

for Softgold - its Just that 

people are at last starting to 
submit articles and programs for 
that computer* to US. 

Softgold continues to be 
directed at new computer users, 
and we especially thank those of 
you who submitted work with the 
chi Istmas "newies" In mind! 

Our family of Tandy, IBM and 
Viatel users is growing steadily 
and this Is reflected In the 
steady rise of Interest in 
Softgold magazine. 

Adelaide / Melbourne 

Here I cams to the "Gulp!" 
department! 

I feel guilty about this, but 
unfortunately I've had ta cancel 
plans to be in . the southern 
states this month. 



WHAT PRICE QUALITY AND SAFETY? 
By John Po:con 

Probably *very use:* group 
across Australia has its 

resident hardware "expert", or 
at least, someone assuming that 
title. Such a perscn usually 
does the upgrades, advises 

others on the Ins and outs of 
this or that piece of electronic 
equipment, etc. 

If you Intend to have such a 
person do work for ycu In the 
near future, or have recently 
had some work done, then this 
article is for you. Read on. 

Most people unfortunately 

seem to cost discretion to the 
wti.d when buying computer 

peripherals or services. The 

caution with which they would 
naturally approach buying a new 
car, for example, is suspended. 

Take for Instance the 

purchase of a new disk drive 
system. There ore a number of 
variables associated with both 
the performance and safety of 
such a device, yet precious 

little consideration lc given to 
then by the purchaser. My 

observations have been that 

often consideration of quality, 
reliability and safety pale into 
Insignificance by comparison 

with the dollars and cents of 
the deal. What the "*!$<$(?" is he 
talking about. £ hear you say, 
P 11 tell you. 

Consider first the most 

Important aspect of any 

electrically driven device - 
It's safety, When you buy a 
toaster or a micro- wave oven, do 
you stop to consider whether It 
Is electrlca 1 ty safe? Probably 
not, -with good leason: the 
device has been testec by the 
electrical authorities and has 
thereby satief led certain 

electrical and mechanical 

standards regarding sub 

assemblies, assembly, and 

earthing. Failure to adhere to 
these standards nay result In an 
[electrically unsafe condition, 
either Immediately or in the 
future. 

The problem with the local 
expert may be that he has less 
expertise than you think. He 
almost oertainly knows more than 
you do, that's why you regard 
him as an expert. But expertise 
in the electrical industries is 
usually associated with some 
certification, either a full or 
restricted electrical licence. 
Does your expert have an 

electrical ticket of any kind? 

Perhaps not. Even the 

possession of an electrical 
ticket doesn't ensure that work 
is done to an adequate quality, 
if it's being done for example, 



In a backyard shed on weekends, 
or under a house with less than 
adequate conditions, and is not 
subject to electrical 

inspection. 

Let me give a couple of 
examples. 

About twn years ago I decided 

to buy a drive system 

Containing a Hltsublshl 

drive, as it turned out) from a 
local "expert". The absence of 
a case fastening screw, the 
misalignment of the remaining 
screws and the looseness of the 
second drive blanking plate 
prompted me to take a look 
inside. I was astounded to find 
that there was no fuse, that no 

insulation was present on the 
high voltage connections, and 
that the transformer secondary 
windings were pressed against 
the metal cose, Just begging for 

a short circuit! rhts 

eventuality had been postponed 
for a while by the prudent 
wrapping of the transformer in 
masking tape! 

Since this person is, J 

undoratond, on wiwclriclan, 1 

found the poor quality of work 
even more astounding. I 

returned the unit to him for a 
refund. He didn't seem at all 
surprised at my reasons for the 
return. Perhaps he was used to 
such conplalnts. I should add, 

for the sake of a latter portion 
of this article, that the drive 
itself had a light coating of 
fine grit. and the power supply 
printed circuit board was a 
crude hone made Job, with ragged 
tracks and no sealing against 
corrosion. 

Here's another. Recently I 
looked at the construction of 
another drive system, this time 
built by someone who I would 
regard as having much more 
knowledge. Though it was 

assembled much better, it Still 
wuuld not pass an electrical 
inspection by SEQEB (our 

electrical authority here 1b 
Brisbane). High voltage 

connections were not insulated, 
the wrong type of fuse holier 
was Installed, and the method of 
earthing was totally incorrect. 
Here also the electrocution of 
the owner was a possibility. 

The message I'm trying to get 
acrnst hora lc that electrical 
safety is very important. and 
may not receive adequate 

emphasis from a backyard 

assembler, either through 

ignorance, laziness or 

Indifference. 

I made these comments to 
someone well up on the CoCo 
scene and was surprised to hear 
him say "Vho cares about whether 
the drive system is assembled to 



correct Gtandards as long as It 
works and the price is right?" 
That's the bottom line or words 
to that effect. Such blindness 
is obviously well entrenched and 
is going to cost someone their 
life sooner or later. 

You nay wondei about the 

drive <or other mains powered 
device > which you purchased 

recently fron a hone based 
constructor. How can you tell 
If it's safe? I suggest a visit 
to your local electrical 

authority or it's equivalent In 

your state. Ask them to check 
it for electrical safety and get 
the results in writing. Then, if 
there is anything wrong, take 
the unit back to the "expert" 
and ask him to fix it. 

However, if the drive has an 
electrical approval plate on It 
somewhere, it means that the 
manufacturer has been 

sufficiently responsible to have 
that model tested, and you may 
be confident of its safety, 
<though perhaps not of Its 

quality) . 

Let's talk about quality. 
Again I'll address myself to 
drives, though these comments 
are broadly applicable to almost 
any electrical or electronic 
manufacturing process. A.n 

example: I know of a drive being 
asserabLed by a backyard expert 
which is being put out at an 
amazingly low figure. I gather 
that people are queuing up to 
buy these drive systems on the 
basic of the low price and the 
recommendation of a local who 
has some respect. In 

conversation with other real 
experts the same opinion was 
voiced each tine: "a decent 

drive cannot be assembled for 

that price, even less can a 
warranty be offered". I checked 
the quality of the of the bare 
drive, and found that n quantity 
of that make of drive had 
recently been bought and 

subsequently returned by a large 
organisation with which I'm 
associated. Apparently these 

are rather unreliable. 

The point I'm trying to put 
across here is ^hat price is not 
the ultimate criterion of value 
In a computer peripheral. The 
real criterion Is the product of 
reliability and safety. A drive 
which is low cost, but also has 
a lifetime of say two years 
before It cracks up, perhaps 
after a history of data errors, 
is not as good value as a drive 
which performs effortlessly for 
say 5 to 10 years. 



My sincere apologies to all of 
you who have been effected by 
this change of plan. 



Let's think about a date 
March lose and do it then. 



In 



Software Downloads on Viatel 



As we went to press, Ron 

Wright was pretty close to 
having the software prepared to 
allow CoCo users to download 



software from Viatel. 

This Is the development we've 
all been waiting for! 

We are looking forward to 
having this service online 
before Christmas - Murphy's Law 
permit t ing! 



Viatel Billing 

We've had a nunber of people 
report Instances of computer 
error in the Viatel billing 
system. 

V« arc lnterpctpr in hearing 
from anyone elee who has had 
sinllar problems. 



Survey ' 88 - The Winner of the 
Competition! 

Incredible number of entries. 
to the Survey this year! 

Thank you oil for your help! 
I'll Guraraarlse the surveys next 
month! 

However we do have a winner 
for the contest section. 

Most people had suggestions as 
to what we should call our new 
software download service on 
Viatel. 

Here are a few: 

Softdown, Goldware, Golden 

Opportunities, Soft link, 

Goldloads, Golddump, Downware, 
Diamond Link, Qul«k Gold, 

Action, Supersoft. Gold Nuggets. 
Gold Mine, CoCoSaft, Viasoft, 
Goldtel, Solid Gold. 

Corn Soft. and T Candy > 

Bar. 

There were heaps more, but 
after due consideration, the 
Judges have decided to award the 
prize of 10 boxes of double 
density diskettes to Michael 
Konck for "SoftLlr.k". 



Lock for this name - and more 
importantly, software dcwn loads 
for your Tandy or IBM computer - 
on node 6423 on Viatel real 
soon! 

(Downloads for Commodore 

computprc will be provided soon 
by Commodore Connection on 
Viatel 6420! > 

Oh, and congrots to Michael! 



Golddlsks 1-3 



typing hl& 
bone to get 
4 ready for 



Deon has been 
fingers to the 
Golddisks 3 and 
Christmas! 

But finally they are here. 

Ea-h disk contains up to l"o 
programs from previous Softgold 
magazines for the T 1000 or IBM. 



Contests 

I think this happened last 
year! 

Vhat with computer shows, two 
extra magazines to get done 
bo£or« Car I^t nv*«i. «nH n hn=st of 

other work, we feel that it Is 
only right to extend the various 
contests that were to hove 

closed in November until 7th 
February next year. 

This will give you all a bit 
more time to get some of those 
typing fingers Into gear too! 

If you hove on idea for the 
Bi -Centennial program, but would 
like someone else to help you, 



let us know and we'll put you In 
touch with a like minded person! 

Users Group Hews 

Firstly, on behalf of us all, 
but especially the users of 
Melbourne, we send our 

condolences to Joy Wallace, our 

former contact for the Melbourne 

Colour Computer Club. 

Joy's husband passed away 
recentLy . 

Les Leisaman will be taking 
over from Joy as contact for th.e 
1 1 me being. 

His phone number is 03 484 
0622. 

Rosemary Litzow is starting a 
group at Cannon Hill in 

Br is bane . 

Rosemary's phone nunber ie 07 
395 0863. 

Anyone in the area who needs 
help or would like to attend the 

group, please contact her. 

We heard from our friend Peter 
Van Houts at Violet Town 
recently, and he tells me there 
is a group starting in the area 
probably based at Benallo. 
Call Tandy at Banal la for more 
details - their phone number is 
OS? 62 4155. 

On a personal note, Peter and 
his wife Judy, ore expecting 
their second child in a few 
months - we look forward to a 
photo in due course! ! 




Christmas Party 



Don 1 t forget! I 

The Christmas Dash on the 12th 
and 13th December on the beach 
at Southport Is definitely still 
onll 

There will be Viatel user© 

from all over the east coast - 

as well as a number of Tandy 

Computer users! And vie will be 

using a Cellular Phone Viatel 

to Update Viatel LIVE 

Beach all night! 

the party t is an all 

party - don't expect to 

before lOara! I 



terminal 
from the 

Yqs - 
night 
leovs 



Our thanks to the groups who 
continue to send newsletters. 

For spac© reasons, I won't 
summarize these this month, but 
be It made known that groups 
like the OS-9 Users' Group, 

AMijQ, pott NoorLunga, La Trobe 
and Peninsular Users' Oroups are 
producing those days, excellent 
quality newsletters! Each one 
is worth investing in? 



Education A This Issi 



The days when people write 
programs to do a particular task 
BECAUSE THEY HAVE TO, are fast 
passing. 

Howhere is this »or« evident 
than in the Education arena. 

Which Is not to say that 
people will not continue to 
write programs for all sorts of 
purposes - because professional 
programmers can never hope to 
keep up with individual needs. 

In education, the CoCo 3 has. 
been passed by as an education 
tool, in all but the aost 

sophisticated schools, and the 
move Is away from the Apple© to 
the IBM' s and clones. 

But even here the nove is to 
the use of pre-written programs 



rather than the development of 
programs to do taska perceived 
necessary by the local body. 

Nice it Is to Xnow then, that 
our programmers are still 

turning out education programs 
of the calabre to be found in 
this month's Softgold. 

The point is this - you may 
have access to a very wide range 
of software that fills your 
current needs quite well - but 
home user or teacher - there 
will always be a time when you 
will need the computer to do 
something for you that you are 
unable to get from commercial 
software. 

Tho answer lies lu developing 
and maintaining an interest in 
programming. 

If you own a T1000, Basic Is a 
good stort, but Pascal is the 

language more commonly used. 

Ve are very proud of the 
efforts shown In this magazine 
this month. 

A special thanks goes to Bob 
Home who continues to inspire 
us all with his quality work. 

Welcome to the New Advertisers 

I'm often reminded that one of 
the reasons people purchase our 
magazines is to sea the ads. 

This seems at first to fly in 
the face of the reason we watch 
TV " but then again, our 



magazine is no TV stationl 

The CoCo is such a "closed 
shop" computer that it has 
alwayG been difficult convincing 
advertisers that the magazine 
was the place to show off their 
wares. 

But in today's age of the 
compatible computer, all that is 
slowly changing and advertisers 
are discovering the strength In 
the Tandy market - the one wo 
address of course! 

So we welcome two new 

advertisers to these pas»s this 
month, and ve ask that our 

readers PLEASE mention us when 

you are talking to therat 

The Tandy Store Award 

The Tandy Store Award this 
month goes to Gwyn Morgan at 
Rlngwood. 

Unfortunately for our users in 
that area, Gwyn is leaving 
Tandy. but we couldn't let him 
go with out thanking him once 
more for the great support he 

has b*jen to the Tandy uaeib la 
that area. 

Gwyn is having a month or ©o 
off, before he decides what he 
will do next - something a lot 
of Tandy managers seen to do 
when the leave - I wonder whyt ! 




Professionally built hardware — at a fair price! 



Introductory otter 

40 TRACK DS 
DISK SYSTEM 



For both CoCo and IBM PC's etc. 

MODEMS - 



Phone for Details 



• DOS 

• Techmate drive 

• Case and cable 
1 SEQEB approved 

Twin drives and 
other DOS 
available 

Phone For 
Details 



INTERFACES 
ANALOGUE TO 
DIGITAL 

CONVERTERS osama) 
MEMORY UPGRADES 

for CoCos 1 , 2 and 3 and IBM PC's and clones 
Prices subject to changes without notice. P&P extra 
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by Alex and Deon 



All your computer 
hassles answered!!! 



is 



nelosed you will find the 

Lotrobe Valley Bulletin- I hope 
you enjoy the reading. The three 
groups. namely th* Koe, Morwell 
and Troralgon User Groups, all 
pitch In to produce this 

newsletter. The w*y we do it Is 
to give every one a go. That 
Is, one town produces a 

newsletter evei y tin ee months. 
This month, (August) Traralgon 
had the pleasure in producing 
the newsletter- 

While I have your attention, 
would tt be possible to publish 
a list of well known IBH 

compatible boards that are known 
to run with little <if not any) 
trouble on the Tanly 10007 

I know that tne long boards 



are physically impossible to fit 
in. A lot of the shorter boards 
fit. eg. HardCard, RS232, and 
Clock and Calendar cords. 

A list of these boards and 
maybe their suppliers, and a 
short description would be <l'ra 
sure) greatly appreciated by all 
T1O00 owners. At the moment I 
notice a great majority of the 
ads In your magazines are CoCo 
related. This was great when I 
owned a number of CoCo2s and a 
CoCo3, but now I own a TIOOO. 

Until next time I bid you 
farewell . 

Happy Computing 

Leigh Daw© 

Dear Leigh, 

I seem to be confused. I also 
own a Tandy 1000, and, like you 
wanted to expand. Knowing the 
fact that the Tandy 1000 is one 
of the best IBM compatibles, I 
Just asked Tony Lloyd, (of GT 
Computing) In Melbourne for a 
memory board. He sent me one up. 
I had no trouble whatsoever 
fitting it in. Plw«*w tell roe 
which boards you had difficulty 
fitting in. 

As for your comment on 
Softgold and CoCo having more 
CoCo related than Tandy 1000 and 
IBM articles and ads I hope to 
fix that! I am here to receive 
any information ASY/QHB would 
care to send concerning the 
topic and hope to make SOFTGOLD 
at least 507* Tandy 1000 and IBH 
compat i.ble. 

So if you hove some "home 
made" programs you would like to 
send in, or if any of your user 
group members would like to 
contribute, please feel free to 
do so. 
['eon 



Dear Deon 

1 own a Tandy 1000 Computer 
and Monochrome Monitor. 

[ have been anxious to obtain 
the listings for games and data 
bases for my computer and have 
checked all the 1987 Issues of 
Australian Rainbow Magazine, 
CoCo Magazine and Softgold for 
this purpose. 

The only programme which 
appears to hove been published 
is In the January 1997 edition 
of Australian Coco called Ali 
Raid. 

I should be please if you 
would advise whether there ore 
any other publications 

containing listings suitable for 
the Tandy 1000 computer and If 
so, what those are - or 
alternatively whether you are 
able to advise where such 
listings may be obtainedr 
Yours faithfully 
G.V. Williams 

Dear Mr Williams. 

Unfortunately I haven't heard 
of any publication that has 
programs for the Tandy 1000 and 
JBM Compatibles. Your best bet 
Is to look through old computer 
magazines or even buy a book of 
basic programs and converting 



them over to work on the 1000. 
There shouldn' t be too much 
worry because BASIC is a 
universal computer language- The 
only major thing to watch out 
for is th3 Peeks and Pokes. 

But the beat bet iw to watch 
this magazine, this month and 
over the next few norths, as we 
begin to expand our service to 
you. 

Deon 



Dear Deon 

Hi ray name is Peggy and I am 
having problems with my brand 
new Tandy 1000. I an having 
problems trying to get the moiem 
working through Deskmate. I 

tried to hook up to Austpac, but 
I can't get the right settings 
and the modem isn't dialing the 
number. 

I have the Tandy Internal 
Modem (Cat no: 25-9402) and a 
256K Tandy 1000 with 2 disk 
drives. 

Could you help me please? 
P«i»ggy Cradduck 



Dear Peggy, 

Great hearing from you! 

The most important thing to 
know if you are going to use 
this modem with Desfcmate, le to 
make sure the pins are set on 
C0M1. If you are unsure, then 

pap along to your local Tandy 
shop and get them to check for 
you. I'm sure they wouldn't 
mind! 

Then, start up Deskmate and 
highlight the TELECOM bar and 
press <ENTER>. 

You will be confronted with a 
page of settings which may seem 
meaningless, but they ore 

Important 1 

On the first line of the 
settings page you ore prompted 
if you ore using an autodial 
modem or a manual dial modem. 

Select YES by moving the 
cursor onto YES and press 
< ESTER ;>, 

You will then be faced with a 
blank page with four options at 
the bottom. They only one you 
will need to set up te COMPuter 
dialing (Option F2) . Press F2 . 

Sot the screen so It lsoke 
like this: 

DELAY: 1 <F7> 1 
SEHD: ATDP <F3) ATDP 
then press F12 (twice) you 
will return to the main set up 
mend. 

Set the BAUD rote to either 
300 or 1200 (depending on which 
number you dial with AUSTPAC) 
Set Data word length to 8. 
Parity=NOFE 
Number Stop BLts=l 
XOK/XOFF-ON 

and the rest set to OFF. 
when that Is done press F5 to 
go Into Terminal Mode and press 
F8 to dial the number. 

The modem should then dial 
the number you put in and 
connect you! Good luck! 
Deon 
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Dear Alex 

I recently purchased one of 
your Best of #8 -'-16K Gaiae6 on 
tape. The results are ... 

* 507. of the games, my kids 
cannot Ret, 

* 252 they have tiouble getting 
of J tape, 

* 257. they can load and ploy. 
Host of the games Indicate an 

I/O error, which means a bad 
tape. Hv kids are sick and tired 
trying to get these games - what 
do you suggest? 

Also on page 47 of the June 
1967 Softgold issue, taere is a 
graphics proRram called "Skull", 
for a 16K ECB (which my computer 
is> CoCo. 

My daughter typed in the 
program - she got os far as line 
163 which is about 75% of the 
program when she Rot an OH error 
< which means an Out of Kemory 
error). 

So she cleared meuorv and 
started again - still ;he same 
problem came up (on line 163). 

Vhy Is this so, when the 
computer has been suited to work 
on a 16K ECB CoCo? 

James Peel 

Korwell. VIC 

James, 

With the Best of *8 - 16K 
games, we suggest you do the 
fallowing: 

* check tape connections 

* check volume - setting of 7 
to 8 is good, as opposed to 5 - 
6 that the Tandy manual states. 

* check that tape mechanics 
are clean - ie clean head, pinch 
roller (black roller on right of 
head), and erase head (left of 
head) have been cleaned with an 
alcohol (Tandy sell a liquid 
called "Professional Head 
Cleaner" - top stuff! > every 10 
working hours. 

* (the following is an 
extreaist idea ... ) check the 
azimuth of the head to sake sure 
it is at exactly 90 degrees 
level . 

If trouble still persists and 

CoCo doesn't want to read the 
tape, then send the tape back 
with a note saying "Hey, my CoCo 
doesn't want to talk to ny 
tape - please replace" as well 
as the symptoms. 

Vhen we receive such a tape, a 
new tape is sent out and the 
offendin* tape checked. 

Regarding "Skull" - the 
program should work perfectly! 
Ve have had programs thrice 
(three times) the length fit 
into a 16K ECB CoCo! 



Before you type any program,, 
moke sure the following is done: 

* Turn off your CoCo, wait for 
15 seconds and turn your CaCa on 
again. 

* Type PRIHT XEh* - you should 
get something around the area of 
6848. 

The first suggestion is the 
best way of clearing your CcCo's 
memory. Sure, there are ether 
ways of clearing your CoCo 
memory, but this is the most 
effective. 

To reduce "Skull" in length 
even more, delete (or leave out) 
the following lines; 0, 1, 2, 3, 
4. 5, 6, 7, and 8 - these are 
either PEMark lines or 

submission numbers, both of 
which you don't need In the 
running of the program. 

Try that, and write ms a 
letter to say how you went. 



Dear Al« 

I have Just typed In the 

"Huthacker" proRram which I am 
finding very lnterestinff. 

However I would like to ask some 
questions about it. In listing 
4, is line 1020 correct as 
printed? 

Also in listing 2, lines 1045 
to 1400 are repeated. 

I would find it helpful to 
have more instructions, but I 
presume the command words are in 
listing 2, line 24 - but they 
need disentangling! 

In the September "Softgald", 
page 17, in connection with the 
letter from Kim Hassall, would 
lt he worth repeating 

instructions on how to deal with 
1/0 errors using the CCR81 tape 
recorder? 

I have a small screw driver, 
and often I find It necessary to 
adjust the head, as tapes can 
vary considerably, and it does 
not take much to throw things 
out, I now use a disk drive, but 
still have some material on 
tape, and it is easy to make a 
snail adjustment. 

I think I made this suggestion 
on the bottom of my review fern, 
but as I was writing anyway, 
thought I'd spell it out a 
little. 

THE Rev. John A. Ford 
■Junee, HSV 

John, 

G'day! 

Yes, the REMark in line 1020 
in listing 4 can be left out as 
well as everything after ths 
REK. This is probably somethlnR 



Peter tried hut didn't like and 
settled for something better - 
it wasn't deleted when Pete 
finished debugging his program. 

And yes, lines 1045 to 1400 
are repeated, mainly because it 
was a paste-up error. 

And (finally) yes, the 

instructions (or commands) are 
to be found In listing two 
Somewhere ... you didn't think 
getting the commands for an 
adventure was that easy 
you? 

Regard i ng "adj ust 1 ng 
azimuth of the head in 
CCR-81 recorder" - if one could 
do a tutorial on exactly what to 
do, it'd be great for people 
such as James Peel (see above 
letter) and many others 1 know. 

Gee, It'd be really 

appreciated if someone could 
write an article on such a 
subject, right John? 

And no, repeating the other 
instructions on handling CCR-81 
1/0 errors aren't r-e-a-1-l-y 
necessary ... .&. 



did 

the 
your 




Correspondence for 
THE OH ZONE should 
be addressed to 
either ALEX, CoCo 
problems, and DEON, 
T1000/IBM hassles. 

Our address is: 
THE OH ZONE, 
PO Box 1742, 
Southport, Q, 
4215. 





Dear Graham, 

I am one of those lucky 
fathers who bought a CoCo 3 and 
disk drive to give to his son on 

his seventh birthday. 

My boy, Shane, really enjoys 
using his computer, the disk 
drive has helped enormously 
there. In fact, the first disk I 

purchased was "Bes*. of CoCoOz 
#11" with Bob Home's absorbing 
(far my son) "Chatwln Manor". 

Another reason I bought the 
CoCo was so that I could get to 
use It. Our deal Is, Shane uses 
the computer, and I learn about 
It and type In the programs. 

Eventually I will get a 
monitor - the portable TV gets 
moved too much. 

Being a new user of a 
computer. I have discovered 
there Is a big difference 
between learning BASIC, and 
understanding a writer's 

program. I enjoy most, those 
programs tliat are wall 

documented, and the writer 
clearly states what the program 
Is doing, le which, lines perform 
a specific task, what the 
variables represent, clearly 
REMarked subroutines, etc. 

I hove found that without 
those comments some programs are 
difficult to follow. 

I hope one day I will be able 
to contribute to your (great) 

magazine. Until then, 1 have a 

lot of learning, understanding 
and enjoying to do. 

Perhaps you could coerce some 
of your more accomplished 

writers to turn their 



submissions into mini-tutorials. 
David Morton 
Condobolin MSV 

David, 

Ttank you for your letter. 
It's nice to know that there are 
other users In Condo, besidee 
Ross and Chris. 
We are attemptin* to make the 
magazine much more of a teaching 
magazine than we've been able to 
do In the past. 

Already a number of our 
authors present their proRrams 
the way you suggest - for which 
we thank thea - and we hope 
their example will be followed 
by others In the future. 

Graham 



Dear Graham, 

After reading a back copy of a 
July 1086 Rainbow Magazine, I 
saw a prosram by Bob Ludlum 
called Music+. 

I would like to have the 
updated version but do not want 
to buy a Rainbow on disk as I 

already have typed up many of 

the programs. Could you send me 
a printout of the updated 
version of XUSIC+, or 

alternatively, if you let ae 
know the cost to tape onto a 
disk and post to oe I could send 
a disk to you. 

Rare Peake, 

Coklands Pk. SA. 

Marc, 

The program you require Is 



unavailable from us, due to the 
expiry of our arrangement with 
Falsoft, Inc In the U.S. 

However, I understand that 
Robbie Dalzell of the Koarlunga 
Uccr Croup has some second-hand 
copies of some Rainbow magazines 
available. He may be able to 
help you. 

Graham 

* 

Dear Graham, 

I really enjoyed the 

conference. I am sure that all 
the wurk you, Karen, Alex and 
crew put into It really 
benefitted us all. 

Hopefully next year Dad and I 
will make it up to the Gold 
Coast for CONF'89. 

Thanks again for the tapes. 

Odette Seccoabe, 

Rosevllle HSV. 

P.S. There were two Sydney 
people at Conf'87, Odette and I! 

Compliments on a GREAT 

COHFEREHCB - a credit to you 
all. Really enjoyed the talk on 
Viatel - all I've Rot to do now 
Is save up enough money to 
upgrade ay modem (after I get 
FORTH from John Redmond) 

John's talk really was superb! 
But I don't need to tell you 
that. 

RoRer . 

Roger and Odette, 

Thank you for your 

encouragement . 

It is true that John's work 
needs nc introduction to anyone, 
nevertheless It's also truw that 
It's nice to encourage people 
such as John from time to tine. 

Ve enjoyed your company too, 
we hope Odette doesn't get sick 
next year! 

Graham 



Dear Graham, 

Several weeks ago I sent you a 
letter asking several questions 
re. 0S9 level 2. 

Since then I haye U6ed a very 

rare procedure to answer several 
of those queries - I read the 
Instruction book! ! (Seriously 
though, I do have good reasons 
for having not seen these aroae 
before - in true form, Tandy put 
some of the information in some 
VERT obscure places!!). 

Anyway 1 now have the answers 
to all but the question re. 
reproducing sound through the 
0S9 system, 
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If possible could yau refer 
that one to someone who cart telL 
me? Thanks. 

flow, to a couple of newies. I 
upgraded my CoCo 3 to 512K with 
the PJB upgrade from Paris Radio 
and with It received a disk of 
Public Domain programs. 

Unfortunately, being Public 
Domain there are no Instructions 
available and I have no idea 
what they do or how to use them. 
Cao anybody help? The programs 
included are: 



RHODE. B I * 

MLGEH.BAS 

CSFG43.BAS 

RO.SRC 

RAKD512K.DOC 

RAMDSK.DOC 

RDISK.CC3 

SPOOLERS. BIB 

EIGHT28.BAS 



KKODE. DOC 

MTADD. TXT 

HTEMB.BIH 

CCRDISK.SRC 

RAHDSK.BIB 

RAKHER3.0SQ 

SPOOL3R3.BAS 

SP00LER3.DOC 



Bairy Sldebotton 
Sunbury Vic. 

Barry, 

All the files above with the 
".DOC" and ".TXT" extension are 
instructions files you can read 
by typing: 

LIST <filename>. <ext> 

.The only sound that Alex has 
found in 0S9 level 2 so far is 
by typing 'DISPLAY 0?' which 
produces a short ' beep' . 
Graham 



Dear Graham, 

First of all I am looking for 
software that I can use to put 
borders all round a letterhead 
and save to disk or tape. 

My conputer is a CoCo 3. 

Is there anything in the best 
of CoCoOZ #3 Utilities? I know 
you say that some programs do 
not work on the CoCo 3 so I will 
wait for aubvrai , 

Graham, when reading letters 

in the Septeaber edition of 

Softgold I read Barry Stdebottom 
fron Sunbury Vic. 

Veil my answer to Barry is he 
should pack up shop and move to 
NSV or he should try going to 
some of the other computer 
stores and see what service you 
get from them. 

Try buying a fuse. 

I know that not all Tandy 
managers have 100ft computer 
knowledge, but 1 think they all 
try to do their best, as for 
waiting for goods I waited for 5 



months for my RGB colour 
monitor, but ay Tandy Store lent 
ne the one out of the showroom. 

Anyhow my last advise Is that 
If you find something that you 
can pass back regarding your 
equipment that will help others 
please do, you con also gain 
from somebody that has passed 
their knowledge back to their 
Tandy Store. 

Arthur Williams 

Harrington NSV. 

Arthur, 

Harry Hoffnann has written a 
very nice little border prcgram 
which which will be in an 
upcoming CoCo magazine. 

The program prints a border on 
A4 paper, but one could modify 
the program for longer or 
shorter paper length. Also, you 
can design any pattern you like, 
by altering the CHM values 
within the program. 

Thank you too, for your 
c'liwnents re the Tandy stores. 
No-one is perfect but I am 
convinced that the=t» people try 
their te -.1. to help. 



Pr-ar Graham and Crew, 

I Just have to share this 
feeling of goodwill towards 
Tandy and their Haddington 
branch owner/ manager Pat 

Di enan. 

My story:- For starters, I 
live in a quite Isolated little 
bay, half way between Tenth and 
Geraldton, Western Australia. 

One of the drawbacks of this 
type of life is the lack of 
service backup to almost 

everything purchased from the 
city. 

However, the recent service 1 
received has altered ny opinion. 

What happened:- My CoCo 3 512K 
lost its ability to access 0S9 
Level 11. All ordinary programs 
seemed to work. A few HArDAY 
panic calls to Pat resulted in 
the conviction that the HIGH RAN 
chips had failed. 

Problem #1:- Solved when 
son-in-law, enroute from 

Geraldton to Perth, offered to 
drop my CoCo 3 Into Pat on 
Thursday. 

Froblem #2:- Solved when Pat 
Immediately posted me a 

replacement machine. Australia 
Post gets a pat on the back 
here: the replacement arrived 
here Friday (yes next day). 



Truly this is excellent service 
from all concerned. 

The bis joke between 

son-in-law and Pat re. KY 
SEVERE, VIOLEHT WITHDRAWAL 

SYMPTOMS re. not being able to 
have my dally fix could have 
expedited the replacement 

computer, but I prefer to think 
it due to Pat's attitude. 

Backup/Service of this quality 
is very, very rare within 
Australia, and Backup/Service of 
this quality should be 

acknowledged. 

Customer satisfaction 

customer loyalty = a satisfied 
loyal customer is probably the 
best advertisement any 

Salesperson or any store can 
have. 

Just thought I'd pass od this 
JEM performed by our PAT. 
G.P. (Hinder) Levis, 
Jurlen. V.A. 

P.S. You can include my Viatel 
Number in the "Some Tandy Users 

on Viatel" list. Vho knows!* 

There are sure to be other 

isolated users over here who get 

stuck for a little 

encouragement . 

Gordon, 

Is Pat the only store manager 
Tandy have in Vestern Australia? 

Graham 



Dear Graham, 
First subject: 

I read in a letter in 
September's Issue of Softgold 
Magazine that your correspondent 
Barry Sidebotton had lost his 
collection of Australian Rainbow 
Magazines. I don't knoK how far 
back his collection went but I 
may be able to help hin. 

I have a limited number of 
back Issues retained from when I 
distributed the magazines in the 
Noarlunga area. If he cores to 
contact me, I would be happy to 
help him recoup some of his 
losses for cost of postage and 
packaging. 

Second subject: 

Further to the letter from Kin 
Hassall in the ' DR CoCo' section 
of the same magazine. I would 
like to add something to the 
very comprehensive answer given. 

In future when copying 
programs from magazines it is 
Rood practice to omit any high 
speed POKES until the program 
has been fully entered and 
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debugged. Hlsslnff them out does 
not adversely affect the 
oroRran. Once everything is 
working properly they can be 
added. 

I usually mark the position 
where they appear with a hl-llte 
pen so as to be able to find 
then easlLy for re-entry. 

Robbie Dalzell 
Port Hoarlunfra, SA 

Robbie, 

Thanks far that advice. 

A comprehensive list of PEEKs 
and POKES for the colour 
computers 1, 2 and 3 will appear 
In January 1989' s Australian 
CoCo Magazine along with quite a 
quantity of other reference 
material. 

Users who do not have ready 
access to information of this 
nature would be well-advised to 

make sure they obtain a copy of 
that magazine. 

Graham 



Dear Graham, 

I have just received my first 

copy of your nagazlne and would 



like to enter the graphics 
competition shown on page 62. My 
computer is a CoCo 2 with 
cassette and a DKP-100 printer. 
As I have no details about 

previous competitions, could you 
please send more Information on 
how to enter, what to send you, 
etc. 

Chris Fowe 

Hortlake, TIC 

Chris, 

Vhen submitting any program to 
the magazine whether It be sent 
in on tape or disk, please save 
it three times and follow these 
three saves with a text file (if 
possible) which tells us about 
your proRram. 

The graphics competiton was 
going to end on the ?th of 

November 1987 but has been 
extended to the 7th of February. 

All computer — created 

pictures - whether made on the 
Tandy 1000 or the CoCo are 
eligible, and as with the last 
graphics competition, the judges 
would give special consideration 
to animated scenes. 

You send your submission to 
the submissions editor. Freepost 



5, Southoort, Queensland, 4215. 
Please ncr.e that mall to this 
address does not require a 
postage stamp and Is to be used 
only Cor submissions. 

Tapes and Disks sent by you 
will be returned after three 
months unless we need to keep 
them a litle longer as reference 
material . 

Graham 





& 
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Our address is: 
PO Box 1742, 
Southport, Q, 
4215. 





pms mo ELECTRONICS 



161 Bunnerong Rd. Kings! ord 2032 NSW 
Phone 02 344 9111BBS 02 3449511 
Viatel * 642GQ# 




W1Z COMMUNICATIONS PAK 
New from Frank f-togg Labs. 
Uses windowing of OS- 9 L11. 
Packed with features. 
PRICE $129.95 



New Products for 
your CoCo 1,2 & 3 



INSIDE OS-9 LEVEL 2 

The Inside story behind OS-9 
L11 on the CoCo 111 written by 
Frank Hogg and Kevin Darting 
PRICE $54.95 



SCULPTOR DATA BASE 
4th. Generation language 
+ data base manager 
PRICE - $995 



AVTEK MEGA-MOCEM 

Smart ModeraCompat fole 300/300, 
1200/75 Auto Dial and Auto 
Answer. 

PRICE AS ABOVE $499.95 

PRICE WITH 1200/ 12C0- $699.95 



AVTEK VIATEL PACK 

Includes the following; 

' Aviek Mini- Modem 11 

'RS-232 Cable 

'CoCo Tex Viatel Software 

Sale Price 
$279.95 



512 K Upgrade kits 

PJB inc 512K upgrade for your 
CoCo 111, Easy installation.?*; Wrirg, 
Ram disc driver and utilities 
supplied.A must tor OS-9 L2 
SALE PRICE $180. 



OS-9 LEVEL 11 
Operating System tor CoCo 111 
now in stDck.lnctudes Basic 09 
SALE PRICE $180 



Mf&IHSlttSsU] 



AND VISA ACCEPTED 
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Editor Jim Rogers 

IN THE PAST two nonths, due 
to unforeseen 

circumstances, NICO has 
suffered, aucb to my e»m chagrin 
and disappointment but with this 
Booth's issue we are back on an 



even keel and I hope we con now 
continue for many aore months to 
come. 

Even though, for A number of 
years now our old KC10 has been 
off the shelf, finished, 
dropped, radundlflod an.d 

replaced - no not replaced - by 
Tandy, it still continues on its 
way. 

Although nany ex-Kac Tenters 
have upgraded to a bigger 
machine there are, It appears, 
the same number of, or aore, 
learners coning on. 

This stands to reason when you 
realise that the ex-Hoc Tenners 
sell their machines to help 
purchase the new one and 
automatically create a new user 
somewhere. 

It seems that the little HC10 
will not wear out. Even if the 
symbols are worn off the keys 
with the constant use. 

In one way It is sad to ses 
those experienced users leaving 
us for the higher grade machines 
as we have lost the benefit of 
their expertise as well as the 
benefit af their inventiveness 
which produced so many advances 
for the MC10 but at the same 
time that is what the HC10 was 
produced for. A learning machine. 



So it Is anly natural that 
those users, boys and girls, 
should progress to something 
more sophisticated. 



Ed's note 

Also, many thanks to David 
Hill for the numerous programs 
he has submitted. 1 would 
like to add, David, by way of 
explanation an the difficulty 
we had over that tape you 
submitted and -which I hod to 
return to you as 1 was not 
able to get anything off it. 

I eventually discovered that 
there were background voices 
and background music, and for 
some reason the HC 10 Just 
would not pick it up. 

I tried a variety of 
recorders to no avail and as a 
last resort I tried it out on 
a CoCo and up they caine. Then 
by CSAVing to a new tape I was 
able to transfer thera to the 
to the HC 10. 

However I/O errors in Graf ix 
dLdn' t allow rae to take that 
one off. This could be a 
warning to everyone to make 
sure you use a clean tape when 

CSAVing programs. 
Jim 




Brian says that thl6 program. 
nay be a help to beginners. 
It lists all the POKBS and 
PEEKS, tabulates the CHSS and 
then glvss a cursor and screen 
poke and a hangup test. If you 
don't follow the directions 
given you will crash. 



The Listing PEEKPOKE: 



140 

15© 

] 70 REM 'ROM MAX, 65535 

266 S»RHDC255) 

£00 PR]HT@PLEKCX),S 

4 00 NEXTX 

480 CLS6 



REM PEEKPOKE BY BPIfiU GLftSHEEN 
POKE 17026. 13? 
P0KE4SI51 ,64 
F0RG.-1T05B*HEXTG 

CLS0 

f 0^*1*57344 ^5769? 



465 PR1HT" TOKEN SAMPLE" 

496 F0Rx«57844To57ft6s 

500 D-PEEK.;.' 

530 PR1NTT ! ' > -l >b 

535 FOF'U- 1 fWi9" : MEXTU 

537 PORUH1C& HEXTU 

54a NEXTX 

590 CLS0 

555 PRINTC265, "ROM RND SOUND TES 

1 " 

6gc« F''i>Px-er;i44TOf.7 , 4?* 

62S P=RND<2> 

65 S0UNDPE F.*: ( :'. - j P 

?&3 NEXTX 

790 CLSO 

795 PRINT"CHP| SAMPLE" 

797 FOPY=1T030-UEXTY 

Sea F0PX=57i"<14105?499 

810 PRIHTTHP< 15 •CNR*.' PEE K< X >> 

fell PRIHTTRt" 2reDCHR*<PEEKtX>3 

&12* PRJNTTRBt 10 -i:HPt<PEEI'.XX»> 

S96 FOFU-lTOr. • HEKTU 

^t'O NEXTX 

5»a© PRINT-CHR* TfiB TEST" 

981 PRINT "CUPSER ftltD SCREEN POKE 

TEST" 

999 P0KE49151 . 64 

1000 PRJNT'PRINT MEN "PR I NT HEM 
1050 F0RU-1T04S00 HEXTU 

1100 PRlKT"HfiUG UP POKE TEST" 

1110 PR1WT"PRESS RESET' IN 30 SEC 

0HOS 2-THEN LIST" 

1115 PRINT-NO, DON'T LIST; USE KEY 

BOARD" 

1117 PRTNT"PRESS EllTFR 7 TIMES 1 

HEN PRESS RHY 0L' KEY" 

1120 FORJ=1T09000 1IEXT0 

1125 PPlNT-HtU I ft TIC" 

1 I £6 rORU=lTO?000 tIEXTU 

1266 P0KE49151 • 3£ 

1308 LIST 
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THESE TVO PROGRAMS - full 
names "Coordinates for 
CoCo 1 and 2" AID 
"Coordinates for CoCo 3" are 
based on a program and article 
by Steve Blynn. 

This was originally published 
in U.S. Rainbow, May. 1985. If 
you are interested in 

proKramnlng, these articles at 
times contain little gems of 
programs that are worthy of 
development. 

In the accompanying article, 
Steve often gives hints on. how 
the program can be altered to 
suit your own requirements. 

Vhereas Steve in his program 
presented his grid on the text 
screen, I have put the Rrid on 
the graphics screen. 

The original program numbered 
the "Y" axis from the top of the 
screen to the bottom, (i.e. with 
"0" at the top and "7" at the 
bottom). This may be acceptable 
In computer terns but is not 
according to the usual practice 
where "0" is at the bottom and 
"7 M at the top. 

So. I have set out the grid 
numbering In the accepted way. 



4Jt vtAJ-vW- If 



by Bob Home 

CoCo 1, 2 and 3 
i EDUCATION 




A short tutorial is presented 
in each program. As the program 
progresses, Just follow the 
directions at the bottom of the 
screen. Oh, don't forget to 
revise Cardinal points and 

compass directions before 

presenting the program to the 
class. 

I have found that most users 
can find the treasure In 3 to 5 
Kueeses. You may wish therefore 
to change the number of guesses 
allowed. <presently set at 7). 

To do this;- la the CoCo 1 a ad 
2 version, alter the value ai Q'l 
in line 420. Also change line 
630 to suit. 

In the CoCo 3 version the 
lines to alter are 150 aad 69Q. 

A further alteration in the 
CoCo 3 version v lf you don't like 
the "HQ" off-centre when a wrong 
answer Is given is to replace 
line 440 with ... 

440 X=CC;HDRAV"S4C4BM"+STR$<CC*2 
4+45>+ , V+STE$CRR*16+24)+"U6DF4I 
U5DBR6HU4ER2FD4GL2" 

You can also add the triple 
speed-up POKB65497.0 before 

drawing the HLINB's in program 
lines 170, 240, 550, 580 and 
590. 

After ".he line has been drawn 
add POKE65496.0 to get back to 
normal soeed. 



Listing One 

I RBMmmwmmmmmm* 

2 REM* C0-0RD1 HATES * 

3 REM* AND QFPSRED PAIRS * 

4 REM* BY BOB HORHE * FOR * 

5 REM* IPSWICH, Q * COC0142 * 

6 REH**m*******m**m***m* 

7 GOTO 10 

6 SAVE M 309;3";EID'2 
9 G0T020 

10 pclear8:g0t09 

II if peek<188>=14 thehpoke248.5 
0: p0ke249.98: poke250, 28: p0kb251, 
175: poke252, 126: p0ke253, 173: poke 
254,165:poke41o,126:p0kb411.0:po 
ke412,248:reh****disablb <break> 
key***************************** 
20 clear500:cls 

30 d1kch$<58):forx=ot058;reai>chs 

(X):HBXTX 

40 GOSUB590 

50 GOSUB610 

60 A=RHD(-TIHER):PMODE4, 1 : COLOR0 

,5;PCLS 

70 A=RHDU0>-1:B=RND(8)-1:CT=0:H 

Q=HQ+1:IF DS=0 THEH GOSUB190 ELS 

E FOFZ=1T04:PCOP7 Z+4 TO Z:H3XTZ 

80 GOT0290 

89 REM***tfORK OUT D1RECT10H***** 

90 PRS="":DRAV'C0":LlNEU03,i71> 
-U55,i81),PSE7,BP: IF CT=1 THE* 
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X1=10;T1=160:C1=5:C*="CHABGE DIR 

BCTIOR TO":GOSUB740 

100 IF Y=B;THEH130 ELSE IF Y>B T 

HBB120 ELSEPRS=PRS+"BOR7H" 

HO GOT0130 

120 PR»=PR4+"S0UTH" 

130 IP t=A THEI160 ELSE IF X<A T 

HEH150 ELSEPR$=PRS+"VEST" 

\40 GOTO160 

150 PR»=PRS+"BAST" 

160 X1=107:Y1=160:C1=5:CS=PRS:GO 

SUB740: PLAY"O2L5T10AAAFFFAAA" 

170 DRAV"C0": LIHE<0, 150;- (190, 17 

0),PSET,BF 

180 GOTOBO 

189 REI*X****SCREEB SET UP****** 

190 COLQR0:LIBB<3O,0)-<217,7>,PS 
BT.BF 

200 R=2:X1=55:Y1=6:C1=5:C*=' , F 1 
ID THE TREASURE" :GOS 
UB74Q:X1=56:G0SUB74Q:X1=27:?1=16 
:C1=0:C*="0 12 3 4 

5 6 7 8 9":GOS0B7 

40:Y1=148:GOSUB740 
210 F0RZ=7T00STEP-1:Y1=E7-Z>*16+ 
25:X1=15:C*=STR*<2):GOSUB740:X1= 
222:GOSUB740:BEXTZ 
220 F0RX=30TO219 STEP21; LIBEU.2 
0>-<X, 139),PSET:BEXTX 
230 FORY=23TO150STEP164LIHE<27,Y 
>-C221,Y),PS£T:BEXTY 
240 LIIE(0 1 150)-<255,19l),PSET,B 
F 

250 CIRCLE<233,171>,20.5:PA3BT<2 
33. 171), 5,5 

2G0 X1-231:Y1=156:C*="H":G0SUB74 
0:Yl = 189:C$= r 'S":GOSUB740:Xl=216: 
n=174:CI="V B";GOSUB740 

270 DRAV"C0BH233,1B1U20SF3BG3D10 
L10R20 

280 DS=1:FORZ=1T04:PCOPY Z TO Z+ 
4: IEXTZ: RETURN 

289 RBM****GET CO-ORDIBATES***** 

290 SCREER1,1:R=3;X1=12:Y1=160:C 
1=5:CS="TYPE FIRST CO-OSDIRATB C 
TO 9) ->":GOSUB740: IB*=IIKBY« 
300 II$>IIKBTS:IF 11*="" THEI300 
310 IF ASCUB$>(48 OR ASCUIS>>5 
7 THEI300 

320 CC=VALCH*):X1=190;C$=I«;GO 

SUB740 

330 X1=7:Y1=170:C*="TYPB SECOBD 

CO-ORDIIATE (0 TO 7) ->":GDSUB74 

0: 1I*=IHKET* 

340 I»*=IIKBY*;IF IM-"" THEH340 

350 IF ASC (111X48 OR ASC(IB*)>5 

5 THEM340 

359 REK*****EVALUATE ABSVER***** 

360 RR=VAL<IBS):H1=RR:X1=180:C»= 
IIS:GOSUB740 

370 CT=CTU:PX=30-f21*CC:RR=RR-7: 

RR=ABS <RR> : PY=23+ 16*RR 

380 IF CC=A AID H1=B THEB440 

389 REM****ABSVER VAS VROHG***** 

390 FORX^lTO8:CIRCLE(PX,PY) l X,0: 
IBXTX 

400 PLAY"O2L50T5FFFFFFF31AAAAAAA 

02FFFFFFF' 

410 X=CC:X1=PX-4:Y1=PY+2:C1=5:C» 

="BO":GOSUB740 

420 IF CT=7 THER530 



430 Y=H1:GOT090 

439 REM**#*ABSVER VAS RIGHT***** 

440 FORZ=lTO20:CIRCLE<PX,PY),Z,0 
: NEXT2 

450 FORZ=1T015 

460 X2=PX-12+RND<22);Y2=PY-12*RH 

IK22> 

470 F0RZ2=1T04:CIRCLE(X2,Y2>,Z2, 

5;BEXTZ2:CIRCLE<X2,Y2>,5,0;HEXTZ 

480 X1=PX-4:Y1=PY+2:CS="YES":F0R 

Z=1T010;C1-5:GOSUB740:PLAY"L50T1 

0O4CDE" :C1=0: GOSUB740: PLAY'XDE" I 

BTEXTZ 

490 PLAY"03T2L10CCGGAAL5G" 

500 DRAV"CO":LIHE(0, 150)-<210, 18 

5>,P5ET,BF 

510 Xl=5:Yl=175:Cl=5:Cft="COHRATU 

LATIOBS. YOU MADE IT W+STRKCT 

>:IF CT=1 THEB C4=C«+" MOVE." EL 

SE CS=CS+" MOVES." 

520 GQSUB740;GOT0540 

529 REM****THAT'S 7 GUESSES***** 

530 DRAV*CO";LIBB<0, L5O)-<210,19 
D.PSET.BF: Xl=5: Yl=165: Cl=5: C»=" 
SORRY, THAT VAS 7 MOVES. " : GOSUB7 
40:Y1=160:C*="THE CORRECT AH3VER 

VAS "+STRft<A>+" ,"+STR*<B>:GOS 
UB740 

540 FORZ=lTO200G:BEXTZ:IF RQ=10 
THEBDRAV"CO":LINE<0,150>-<210,18 
5>.PSET,BF:X1=5:Y1=175:C1=5:R=4: 
C$="REXT PLAYER - <PRESS EBTER>. 
";X1=6;GOSUB740 ELSE CT=0:GOT070 
550 PLAY"T502L8CCGG03AAL4G" 

559 REMt****GET REXT PLAYER***** 

560 IH*-IRKBY* 

570 IF IHKEYSOCHR$<13) THEB570 
580 BQ=0:CT=0:GOTO50 

589 REM******TITLE SCREER******* 

590 CLS:PRIBT®134."THE PIRATES T 
REASURE":PRIRT«202,"BY BOB HORBE 
":PRIHTe264,"FROK AM IDEA OF" : PR 
I0TO331," STEVE BLYB" 

600 FORZ=1T02000:BEXTZ:RETURB 
509 REM******IBSTRUCTIOBS******* 
610 CLS:FHlBr:PRIllT"f'BTER PIRATE 

HAS BURIED HIS TREASURE SOM 

EVHERE OB THIS ISLARD." 

620 PRIHT:PRIBT"UHFORTUBATELY, 
H HIS MAP, HE HAS USED IIVISIB 
LE IBK TO MARK THE SPOT VHE3E T 
HE TREASURE IS BURIED." 
630 PRUT: PR I IP" YOU WILL HAVE 7 
CHARCES TO PICK THE CO-ORDIHATES 

OF THE SPOT VHERE HE HAS BUR 

IED THE TREASURE." 

640 PRUT«484,"PRESS enter TO CO 
HTIBUE."; 

650 IF !NKEY$OCHR$(13) THER550 
660 CLS: PRIST* VHEH USIHG CO-0 
RDIHATES, THE HORIZONTAL NUMBER 
IS ALWAYS COBSIDERED FIRST." 

670 PRINT" THE VERTICAL BUMBER 

IS COBSIDERED NEXT." 

680 PRIRT" THUS, COORDIBATES 
ARE USUALLY EHTERED IB THI 

S MARKER:- (9,3)" 

690 PRIST" THIS PAIR OF BUMBER 
S MEANS GOACROSS 9 AID UP 3." 
700 PRIST" A PAIR OF SUMBERS L 
IKE THIS IS ALSO KBOVR AS AR OR 



DERED PAIR 

710 PRINT0484,"PR£SS enter TO CO 
RTIHUE."; 

720 IF IHKEYJOCHRJU3) THEI720 
730 CLS: PRIHTS262," JUST A HOKBIT 
PLEASE^'iRETSIRB 

739 REM******DRAV MESSAGES****** 

740 POKE65495.0:R=2:DRAV"C=C1;BM 
M +STRS(X1>+V'+STRJ(Y1) 

750 F0RI=1TC LEBCC4) 

760 F=ASC(MID$CC$. I,l))-32 

770 DRAVCH$<F)+"B;R=R;" 

780 BEXTI:P0KE65494,0:RETURI 

789 REM**mCHARACTER DATA***** 

790 DATABR2.BR2UBU2U2BRBD5.BU5ID 
BR3DBD4 , BRUHLV3HLHVRRUIRD3RLBRDB 
R, BRUHLREHL2URBUR2BD4, BR3HUBL3UE 
3UBL3DBD4BR3.BRHEMF2HEFGBD2REBD, 
BU5BRRDCBD3BR2, BR2HU3EBSBD5, BREU 
3HBD5BR2 , BREUE3BD3BH3BDBR, BU3BR2 
DRLHRDBDBR 

800 DATABRUBRDRHUDGBU2BR2.BRBU2R 

2BD2, BRRULDBR2, BUBRRBU2IL3BR2BU2 

LBD5BR3 , BRHL3ERFD3GLBR2 , R2U5 BLD5 

R 

810 DATA BR3USREU2LLGBD4BR3.BUFR 

EUHRLEUL3BD5BR3.BR3U5D3L3UE2RBD5 

, BUFREUHL2U2R3BD5, BUBUFREUHLGU2E 

RBD5BR, BU4UB3D2G3BR3, BUHUFREUHLB 

GHERFGBD3BR.BRRBU3HLGDFREBD3.BR2 

UBU2UBD4BR 

820 DATABR21RD2GBU5URDLBD3BR.BR2 

H2UE2BD5BR,BRBUNR2BU2R2BD3,BRE2U 

H2BD5BR2.BR2UBUUREHL2BD5BR3, ,U2B 

R3U2ERFD4 

830 DATA U3NR2U2R2FCFDCL2BR3.BUU 

3ERFBD3GLHBDBR3, U5RF2DG2LBR3, HR3 

UORRau^RaBW.USRRSUZRSBDS.BUUaBB 

BRBD3HLDGLHBDBR3, U3HU2R3IU2D3, BR 

U5BD5BR2 , BUFEU4HRL2BD5BR3, U5D2RB 

2G2F2D,RU5R3,U5F2HDE2D5,U5F3U3D5 

840 DATABRHU3ERFD3GLBR2.U5R2FDGL 

2ED2BR3, BUU3ERFD3BHHFGLHBDBR3, U5 

R2FGL2F3 , BUFREUHL2UERFBD4 

850 DATABRU5LR3BD5.HU5R3U5BD5.BU 

5D3FDRUEU3BD5,RU5E2RUF2RU5, UB2H2 

BR3DGFD2 , BU5D2FRD2HLU2EU2BD5 , IR3 

UE3UL3BD5BR3 



Listing Two 



1 REM*************************** 

2 REM* CO-ORDIRATES * 

3 REM* ABO ORDERED PAIRS * 

4 REN* BY BOB HORHE * FOR * 

5 REM* IPSV1CH, Q * C0C03 * 

6 REM*************************** 

7 GOTO10 

8 SAVE'*309A:3":ERD'2 
10 CLEAR1000:CLS 

20 OR BRK GOrOSOO 

30 DIMA(14):A<1>=16:A(2>=11:A(3) 

=32: A<4)*63:A<5>=27:A(6>=45:A<7> 

=38 : A <8 ) =45 1 A < 12 ) = 16: A ( 13) =52 

40 GOSUB650 

50 PALETTECMP;G0SUB670 

60 A=RHD<-TIKER> 
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70 HSCREEN2:F0RZ=1T013:PALETTEZ, 

A<Z> : KEXTZ I GOSUB190: CT=0: HQ=NQ+1 

80 GOTO290 

69 REM****VORK OUT DIRECTION**** 

90 HCOLOR4:HLINBU60, 170) - (250,1 

91> , PSET, BF: HCOLOR3: HPR1HT (0,22) 

."CHANGE DIRECTION TO ":PRS="" 

100 IP Y=B THES130 ELSE IF Y)B T 

HEB120 ELSEPR$=PR*+" NORTH" 

110 GOTO130 

120 PR*=PRS*"SOUTH" 

130 IF X=A THEF160 ELSE IF X<A T 

HBS150 ^SEPR*:^**'^^" 

140 GOTO 160 

150 PR$=PR$V'EAST" 

160 HPRIBT (20, 22), PRS:PLAY"O2L50 

T10AAAFFFAAA" 

170 HCOLOR4:HLIBE(0, 150>-(256, 1? 

0),PSBT,BF 

180 GOTOSO 

169 REK****#*SET UP SCREEB****** 

190 HCOLOR4:HLIBE(80.0)-C230,7>, 

PSBT, BF 

200 HCOLOR3:HPRINT<10,0)," FIHD 

THE TREASURE" : HCOLOR< : PRS=" 

12 3 4 5 6 7 8 9";HFRIN 

T<4,1>,PRS:HPRINT<4,17),PR$ 

210 FORZ=7TO0STEP-l:BR=(7-Z>*2+2 

; HPRIBT (3, RR) , 2: HPRIIT (34, RR) , Z: 

NEXTZ 

220 F0RX=51T0267 STEP24: HLIBE<X, 

18)-<X I 134),PSET:HEXTX 

230 FORY=20T0142STEP16:HLIBE<48, 

Y)-<270,Y>.PSET:BEXTY 

240 HCOLOR4:HLlNE(0.l50)-<320.19 

1),PSET,BF:A=RBD(10)-1:B=RBD(8)- 

X 

250 HCIRCLE(283.171>,22.13:HPA1B 

T(270 l 17l),13,13 

260 HCOLOR3: HPR1BTC35. 19) ."N" ! HP 

RIBT(35,23), M S":HPRIRT(33 ( 21>."V 

";HPRINT (37,21), "E" 




270 HDRAV"C3BX283, 181U20BF3BG3D1 

0L10R20 

280 RETORB 

289 REM****GET CO-ORDIBATES***** 

290 HC0L0R3:HPRIBTU,19>,"TYPE F 
IRGT CO ORDINATE 0-9 >": INS-IB 
KEY$ 

300 IRS= IHKEYJ: IF INS-"" THEB300 

310 IF ASC(IB*K4a OR ASC(1B*)>5 

7 THEH300 

320 CS=IBS:HFRIBT(31.19>.C$:CC=V 

AL(CS) 

330 HPRIBT(0,20),"TYPE SECOHD CO 

-ORDINATE 0-7 >" : IN$=INKEY$ 

340 IB*=IBKEY*:1F IHS= ,,M THEB340 

350 IF ASCUK»)<43 OR ASC;iH*>>5 

5 THEN340 

360 HPRIBT(31,20), IN*:RR=ULUS$ 

):G1=CC:H1=RR 

370 CT-CT+l;Xl=51+24*CC:RR=RR-7: 

RR=ABS(RR):YL=20U6tRR 

379 REK*****EVALUATE ABSVER***** 

380 IF CC=A AND H1=B THEB470 

389 REK****ABSVER VAS VRCMG***** 

390 CO=5;F0RZ=0TO8;HCOL0S CQ;HLI 
BE(Xl-4-Z 1 Yl-Z)-(Xl+4+Z,Yl+2),PS 
ET,B:CO=CO+l: IF CO=8 THEN CO=5;B 
EXTZ ELSE BEXTZ 

400 K=6:FORZ1=1T010:FORZ=5T07:PA 

LETTBZ,A<K):FORZ2=1T010:5EXTZ2;I 

EXTZ:K=K-1:IF K<5 THEN K=7: NEXTZ 

1 ELSE BEXTZ 1 

410 HCOLOR RBD(4)+4;HLIBE(X1-12, 

Yl-8)- (Xl+12 , Yl+8) , PSET, BF 

420 PLAY"O2L50T5FFFFFFFO!AAAAAAA 

D2FFFFFFF" 

430 F0RZ=5T07: PALETTEZ. A'Z) : BEXT 

Z 

440 X=CC:O>CC*3+6:RR=RR*2+-2:HC0 

LOR4: HPRIBT(CC. RR) ,"BG" 
450 IF CT=7 THEB580 
460 Y=Hl:G0TO90 

469 REK****ABSVER VAS RIGHT***** 

470 HCIRCLE(X1,Y1),20,8:HPAIBT(X 
1, YD, 8, 8 
480 FORZ=lTO10 
49Q X2=Xl-12+RIDC22):\T2=Tl-12iRB 

DC2Z) 

500 F0RZ2=1T04:HCIRCLE(X2,Y2>.Z2 
.13:HCIRCLECX2 t Y2),5.8:BSXTZ2.Z 
510 FORZ=lTO10:FORZl=lTO10: BEXTZ 
1; F0RZ2=1T08; PALETTEZ2, RSD<63> : P 
ALETTE13,RBD(63>:NEXTZ2,Z 
520 F0RZ=1T04:PALBTTE2,A(Z>:NEXT 
Z:PALETTE13, A(13> 
530 PALETTE8,A(8):CC=CC*3+5:RR=R 
R*2t2;HC0L0R4:HPRIBT(CC,RR),"YBS 
" : FORZ=1T020: PALETTB4. RBD(63) : FO 
RZl=lTO10:NEXTZl.Z 
540 PALETTE4,63:PLAY"O3T2L10CCGG 
AAL5G" 

550 HCOLOR4rHLIBE(0,150)-<260,18 
5>,PSET,BF 

560 HCOL0R3:HPRIBT(l,20),"C0NRAT 
ULATIOHS. YOU MADB IT IB": HPRIBT 
<Q, 21), CT: HPRIBT (3, 21) ."HOVE": IF 
CT=1THEN HPRIBT(7,21),". M ELSE 
HPRIBT<7,21), M S." 
570 GOTO590 

579 REM****THAT'S 7 GUESSES***** 

580 HCOLOR4:HLIKE<0 t 150)-(260,19 



1) , PSET, BF: HC0LOR3 1 HPRIBT (0, 19) , 

"SORRY, THAT VAS 7 MOVES.": HPR IB 

T (0,20), "THE CORRECT ABSVER V&S" 

: HPR I HT (22 , 20) , A: HPR INT (24 , 20) , H 

,":HPR1HT(24,20),B 

590 FORZ=lT02000r NEXTZ: IP NQ=lO 

THENHC0L0R4: HLIHE(0, 150)- (250, 17 

5) , PSET. BF: HCOLOR3; HPRIBT (0, 23 ) , 

"BEXT PLAYER - press enter,": EL 

SE CT=0:GOT070 

600 PLAY"T502L8CCGG03AAL4G" 

609 REM*****GET BEXT PLAYER***** 

610 IH$=INKEYS 

620 IF lBKEY*OCHRS(13) THEB620 
630 BQ=O:CT=0:HSCREBH0:PALE'tTE C 
MP;GOTO50 

639 REK******TITLE SCREEB******* 

640 PALBTTE12.62:PALETTB13.1 
650 PALEnE12,62:PALETTEl3,l:YID 
TH32:CLS:PRIHT'?134 I ,, THE PIRATES 
TREASURE": PR I BTO202. "BY BOB HORB 
E":PRINT«264,"FK0H AH IDEA OF" : P 
R1STG331. "STEVE BLYB" 

660 FORZ=1T02000: NEXTZ: RETURN 

669 REH**m* INSTRUCTIONS******* 

670 VIDTH4O:ATTR0,l:CLS3: ATTR3.2 
: F0RZ=1TC5 : PR I BT: HEX TZ : ATTR2 , 4 : P 
RIHT:LOCATE0,5:PRIBT:PRIBT M Peter 

Pirate has buried his treasure 
somewhere on this Island. " 
680 ATTRO , 6 : PR I NT : PR I NT" U nf ort un 
ateiy, on his map, he has used 
invisible ink to mark the- spot w 
here thetreasure Is burled." 
690 PRIBT: ATTRO. 7: PRINTrPRlNT" Yo 
u will have 7 chances to Dick th 
e co-ordinates of the spot w 

here he has buried the treasur 
e.": PRINT 

700 ATTR3,2:LOCATE0.20:PRINT:PRI 
Br Press "; : ATTR2. 1,B:P 

RIIT"EBTBR"; :ATTR3,2: PRINT" to c 
ontinue. ,, ;PRIBTSTRINGSC39.32);:L 
OCATE33,21:IBS=INKEYS 
710 IF I8KEYSOCHRtC13> THEB710 
720 ATTR0.1:CLS3:ATTR3,2:FORZ=1T 
04: PRINT: HEXTZ: ATTR2, 4: PRIST: PRI 
NP'Vhen \isinK co-ordinates, the 
horizontal number is always cons 
idered first.": PRIST 
730 ATTRO, 6: PRINT" The vertical n 
umber Is considered next- M ;PRlBT 
740 PRlNT'Thus, co-ordinates are 
usually entered in this manner 
:- (9,3> , ':PRIHT 

750 ATTRO. 7: PRINT: PRlBT"This pai 
r of nunbers neons ho across 9 
and up 3." 

760 PRINT: PRINT" A pair of number 
s like this is also known as 

"^ATTRO.S.B.VtFRIirran ORDERED 
pair";: ATTRO, 7: PRISTSTRIHGSC56, 
32);770 ATTR3.2: LOCATE0, 21: PRIBT 
: PRIST" Press "; :ATT£2 t l 

, B: PRIBT' EBTER" ; : ATTR3. 2 : PRIST" 
to continue.": PRIBTSTRIBGS (39, 32 
);:LOCATE33,22:IN*=INKEY* 
730 IF INKEYSOCHRSQ3) THEN780 
790 RETIRB 
800 ATTRO, 1:PALETTECMP: END 
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Plane 
Game 




By Bob Home 

EDUCATION 

ANY MODEL COCO 



PLASE GAME IS A VERY simple 
Raffle which I wrote to 
demonstrate and teach 

various techniques in 

programming to the younR members 
of a user-RrouD which meets at 
rav school twice a month. 

The directions are very 

simple - just press the spacebar 
to fire. 

The graphics screen used <128 
points by 128 points) Rives an 
interesting effect. 

If you wish to change the 
number of turns you have, Just 
change the "IF 1*020" in line 
520 to whatever you wish best 
keep it to a maximum of 99 
though or you will have to altor 
the scorlnR routine <lines 470 - 
510), 



The Listing: 



i REM**m*mmmmm*m** 

2 REM* PLANE GAKE * 

3 REM* BY BOB HQRNE * 

4 REM*************************** 

5 GOTO20 

ft SAVE"3G6D;3";END'2 

19 REH****CREDIT SCREEN HERE**** 

20 POKE31000,0:CLSO:FORA=1TD32: A 
*-At+CHM<l2?+l6*RHDC8)):HEXTA 
30 A=l 

40 PRIRT<n92," PLAN 

E "; 

50 PRINTI5256," PRESS <ENTER> 

TO START. "j 

60 PRINTGieQ.HlDS^*, A.32-AMMID 

KAS.l.A); 

70 PRINT<$224,HID*<A*, A.32-AMMID 

S<AS,1.A); 

80 PRINT<S288,M[I>*<AS ( A,32-AHNID 

S(AS.l.A); 

90 A=Af 1: IF 4=31 THFM A=l 

100 IF INKEYSO CHRSQ3) THEH60 

197 REM***POKES FROM A LETTEE*** 

****BY KEITH CAMPBELL**** 
***H0T COCO, OCT. 1983*** 

198 REKtmSET VDG ETC. AND***** 

199 REM******DRAV SCENERY******* 

200 PMODE1,1:PCLS:SCREEI1,0 

210 POKE65473,0:POKE65474,0:POKE 
65476, 0:REMX**SET VDG CHIP****** 
220 P0KE185,1G;REH3ET BASIC FLAG 
230 POKE65314,128:REK****ACTS AS 
SCREES CQMMAND*****FQR THE OTHER 
COLOR SET USE POKE65314, 136***** 
240 CLEAR200, 31000: : DIMCHS (10) , P 
L<3),PB<3>:FORX=0TO9 : REAtCH$<X); 
NEXTX 

249 REH***DRAV AND GET PLANE**** 

250 DRAVS4C3BM10.1QNU2R7" 
260 GET(0,4)-<20,14),PL 
270 PCLS 

279 REM******DRAV MOUNTAIHS***** 

280 DRAV"C3BK0,9OR127H10L15H10L5 
H15G35L7H12M0.90" 

290 PAINT(15,85) ,3,3: PAINT (8S.85 
>,3,3 

299 REM***********R0AD********** 



300 DRAV"C4":LINE(30.92>-(0,127) 

,PSET 

310 DRAV*'BM30,92L3O" 

320 PAINT(15,95) ( 4,4 

330 LIHE(37,92)-(127,127),PSET 

340 t>RAV"BM37,92R92 M 

350 PAIHT(55,95>,4,4 

359 REM***LINE CENTRE OF ROAD*** 

360 DRAVC2BM34.94M40.102" 

369 REN********DRAV SUM********* 

370 CIRCLE(6.6),6,2:PAIHT<6,6),2 
,2 

379 REM********SC0RE BOX******** 

380 DRAV'C2":LINE<25,102>-<75.12 
7),PSET,BF 

390 DRAVS4C2BM86, 68R412U" ; N=0; D 
RAV" S1QC3BM45 . 125" +CH* (0 ) : SOUNU1 
00,1 

399 REM********HAIH LOOP******** 

400 Z=64:X=0:N=N+1:Y=16+RND(10)* 
2:DRAV"S4C3BH2 I "+STR$(Y»4>+"HU2R 
7":ST=RND(2>: IN*=IHKEY$ 

410 INS=INKEY* 

420 X=X4ST;IF X=>107 THEN X=107: 
PUTCX, Y)-(X+20,Y+10),PB:GOT0520 
430 PUT<X,Y)-U+2Q,Y + 10>,PL 
440 IF IH$OCHR$(32) THEN410 

449 REMt*******GUN FIRED******** 

450 PSET<88,Z,2>:Z=Z-2:PRESET(88 
,Z*2):IF Z=<4 THhN2=64:GOT0410 
ELSEIF PPQIHT<8o»Z-2)03 THEH 42 


459 KEM********HIT PLANE******** 

460 F0RT=lT01O:CIRCLE(86,Z-2> ( T, 
RND<3m:NEXTT:PLAY"01V31T255L25 
5CDEGFABCAGDSFCBDFBGABCAGBCE" : FO 
RT=1T010: CIRCLE (86, Z-2) , T, 1 : BEXT 
T 

469 REM********NEV SCORE*****:*** 

470 DRAVC2" LINE (25, 102)-(75, 12 
7) , PSET, BF: SC=SC+1 : SCS=STR1 (SO : 
SC$=RIGHT$(SCS,LENfSCS)-l): IF LE 
N(SC$)=1 THEKX1=45 ELSE Xl=35 
480 DRAW" S16C4BM"*STR$<X1>+" 1 125 

490 FORT=lTO LSN(SCJ) 

500 VJ=MID*(SC$,T,l);V=ASC(VS)-4 

8:DRAVCH$-<V)-"BF2" 

510 NEXTT 

520 FORT=IT01000:NEXTT: IF NO 20 

THEN SOUND100, l:GOTO400 

539 RBN********GAME OVER******** 

540 CLS:PRIN:ei71,"GAME OVER" 
550 FRINT<3265, "YOUR SC0RE"SC 
560 IF PEEKC31000XSC THEN POKE3 
1000, SC:PRi»7<?38fl, "YOU HAVE THE 
HIGH SCORE." ELSE PRINT0393, "HIG 
H SCORE"; PEEK (31000); 

570 PRINT0482. "PRESS <ENTER> TO 
PLAY AGAIN"; :INS=INKEYS 
580 INJ=INKEV$: IF I NSOCHR* (13) 
THEN580 ELSE20O 

589 REM*****DATA FOR NUMBERS**** 

590 DATABRHU3ERFD3GLBR2.E2U5NLD5 
R, NR3UEREU2L2GBD4BR3, BUFitEUHNLEU 
L3BD5BR3, BR315D3L3UE2RBD5 

600 DATABUFREUHL2U2R3BD5.BUNUFRE 
UHLGU2ERBD5BE, BU4UR3D203BR3. BUNU 
FREUHLNGHERFGBD3BR.BUFREU3HLGDFR 
EBD3 
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SUBMITTING 
YOUR WORK 



Ah.! So you've finally finished that 
program? And you say to yourself, "Vhat 
a great program that would sake for CoCo 
Kagazlne/Softgold Maga2ine! n 

And so you wonder to yourself, "How am 
I going to send this program In to the 
magazine?". Some time goes by and you 
suddenly realise, "Hey, there's an 
article In this month's magazine about 
submitting your work. I'll read through 
that and maybe that'll help mo." 

So you rip the magazine out of your 
stack of other CoCo/Sof tgold magazlneB 
and read the article on how to submit 
your program. 

It reads . . . 

*' ... we accept programs stored on 
both tape and disk ONLY along with a 
hard copy of the program(s> (optional 
only; we use It here ae a reference to 
see what the program Is/does) and 
suitable Instructions. 

Saving to Tape 

Each program would be best saved three 
tines with the last save being In ASCII. 
The tapes we recommend yon use are 
either a C30 or less Cthe reason for 
that Is -.hat tapes longer than C30 have 
a tendency to tear). 

It'd be even better If you could 
Include some Instructions along with the 
program, either as a seperate program or 
in the wordproceseors listed below. 

Saving to Disk 

Vlth disk, you'd be best to save it 
three times with the last save being In 
ASCII. Also, the extension name for the 
second and third copy should be 
different, so to distinguish the three 
copies. A simulation Is given below. 

' ... 1 have just saved 3 copies of a 
program called "HORSB". The directory 
Hating would be: 

HORSE HAS B 3 
HORSE 1 B 3 
HORSE 2 A 3' 



Any Instructions could be sived in the 
same system using either a program or in 
the wordprocessors listed below. 



Vordprocessors we use. 

Here Is a list from our most 
preferable worprocessors to the drastic 
measure one could take to tell us how 
your program works. 

1. Telewxlter/Telepatch 

2. Scripslt 

3. PenPal 

4. TIP Vriter 

5. Any form of data file. 

6. Instructions written In a seperate 
program." 



"Oh. wow!", you think to yourself as 
you read it with awe and astonishment. 
So you go about your busy little way 
saving your program and Instructions to 
tape or disk. Then you say to yourself. 
"Vhere do I send it?"' 

You read the article on . . . 



"... any articles and prograi 
be sent to this address; 



Submissions Editor, 
Free post 5 
FO Box 1742, 
Southport, Qld, 4215 



should 



not be 



All mail to this address need 
paid for. 

All tapes and disks received will be 
returned after three months in case we 
need to refer to something or re-prlnt 
something. " 



So place your tape/disk along with 
your hardcopy of the listing in a 
postpack Cor suitable wrapping) and pop 
it in the mail. 

All done! ! 



by Bob Home 

32K CoCo + print 
EDUCATION 




TABLES14 VILL PRUT out a 
sheet of little problems on 
which your class "an work. 
You nay choose a sheet of 
problems based on only one type 
(this is divided into various 
sub-types in most coses) or you 
nay choose a nixture of all the 
types. 

The printer codes are for a. 
Tandy DHP-105. 

I have documented them in the 
program with REK's for 

conversion to other printers. 



The Listing: 



i rem*************************** 

2 REM* TABLES14 * 

3 REX* BY BOB HORHE * 

4 REM*************************** 

5 OOT010 

6 SAVE* , 309F;3":ESD'2 

10 CLS:PRI5Tt5260, "TABLES GEHERAT 

1 01 SHEET":DIXAN(3,30):FORZ=1T01 

00v:BEXTZ:CLS:PRINT"VHICH GENERA 

L TYPE VOULD YOU LIKE PRINTED 

?" 

20 PRIHT M 1>A+B=C+D ,, , M 2)A*B=C*D", 

"3>A*B=C4D","4)A-B=C4D","5)A-B=C 

-D", ,, e)7+?+7-7+7=? M 1 ,, 7)(A*B)-C=D 

","8)3.6,9,. .." 

30 PRirr'9)A*B/CsD M , ,"10> (A*B) + C 

C*B>-(. . .*b)","ii)a-<b-k;>=D". ,, i2 

)A-(B-C)=D","l3>A*B+C-D=r , ."14)A 

-<BtC)=B". ,, 15>ROMAB XXIX = ....CT 

99)","16)A MIXTURE." 

40 PRINT: 1HPUT"TYPE/ BUMBER U- 

16) AST) PRESS <ENTER>";AS:T=VAL 

(A*): IF T<1 OR T> 16 THENFRIHT: PR 

INP'SORRY. OUT OF RABGE. " I F0RZ=1 

TO1000:SEXTZ:RUN 

48 REX* PRINTER CODES * 



49 REX* CHRS (27) CHRS (14) SET 
DOUBLE VIDTH * CHRS (27) CHRS (15) 
TURN OFF DOUBLE VIDTH * CHRS (15) 
TURH OB USDERL1NE * CHRSU4) 
TURN OFF UNDERLINE * 

50 CLS:PRINT#-2,TABC0);CHRSE27); 
CHRS (14) ; "HAKE"; CHRS (27) ;CHRSU5 
);CHRSU5> ;STRINGS(50,32>;CHRS(1 
4); 

60 SH=RND<-TIKER):SH-TIHER;PR£NT 

#-2. "SHEET #";SH:PRLNT#-2 

70 PRIfiT#-2,TAB(10);CHRS(15M"LI 

ST A M ;CHRS(14);TAB(39);CHRS(15); 

"LIST B" i CHRS (14) ; TAB(68> ; CHRS (1 

5);"LIST C";CHRS(14>:CLS 

80 FORX=1T024 

88 REX* PRINTER CODES * 

89 REM* CHR$<27)CHRS(16>CHRSC0) 
CHRS (160) PRINTS 1/3 ACROSS PAGE 
CHRS C27 )CHRS < 16) CHRS <1 ) CHRS (64 ) 
PRIHTS 2/3 ACROSS PAGE********** 

90 FORY=lTO3:PRIHT©270,<X-l)*34Y 
100 IF Y=i THEHPRIBT#-2,TAB(0>; M 
"; ELSE IF Y=2 THEHPRIHT#-2,CHR» 
(27) ; CHRS (16); CHRS (0); CHRS (160); 

ELSEPRIHT#-2,CHRS(27);CHRS{16>; 
CHRS(1);CHRS(64); 
110 PRINT#-2, USING" ##) H ;X; 
120 IF T=16 THEN U=RHD(I6) ELSE 
U=T 

130 ON U GOTO140. 200.260, 330,400 
.460,470,550.560,620,660,710,760 
, 770 , 820 

140 A=RND(17)+2:B=RBD(17)+2:C=RB 

D(17)+2:D=A+B-C: IF D<=0 THEJ140 

ELSEG0SUB1050 

150 ON RND(4) GOT0160, 170, 180. 19 



160 PRINT#-2,". .. 4 "BS" - "CS" 

+ "DSi:AN(Y,X)=A:G0T01060 

170 PRINT#-2,AS" + ... = "CI" + 

"DS; : AB<Y, X)=B: GOTO1O60 

180 PRINT#-2,AS" 4 "BS" = ... + 

1, DS;:AB(Y ( X)=C:GOT01060 

190 PRINT#-2,AS" 4 "BS" = "CS" + 

...";;AN<Y.X>=D:GQT01Q60 



200 A=RND(8)+2:B=RHD(8)+2:C=RBD( 
8) +2: IF A=C OR A*B/C<> INT(A*B/C) 
OR A*B/C<=1 OR A*B/C>10 THEB200 
210 D=A*B/C:COSUB1050;OH RNTK4) 
GOT0220. 230,240,250 
220 PRINT#-2,". . . X "BS" = "CS" 

X '•DS;:AH(Y,X)=A;GOT01060 

230 PRINT#-2.AS" X ... = "CS" X 

"DS; : AN <Y, X)=B: GOTO1060 

240 PR1NT#-2,A»" X "BS" = ... X 

"DS; :AN(Y.X)=C:GOT01060 

250 PRINT#-2,AS" X "BS" = "CI" X 

. .."; : AN(Y,X)=D:GOT01060 
260 A=RND(6)+2:B=RHD(8)+2:C=RND( 
90+-10) 

270 IF A*B<=C THEN260 ELSE D=A*B 
-C;GOSUB1050 

280 OH RND(4) GOTO290. 300, 310,32 


290 PRIBTff-2, M . . . X "BS" = "CS" 
+ "DS;: AN<Y,X) = A:GOTOi060 
300 PRIHT#-2.AS" X ... = "C$" 4' 
"DS; : AN(Y,X)=B:GOTO106O 
310 PRIWT#-2,AS" X "BS" = ... 4 
"DS; : AN<Y,X)=C:GOT01060 
320 PRINT#-2,AS" X "BS" = "CS" * 

. ..";:AN<Y,X)=D:GOT01060 
330 A=R5DU8)42:B=RND(16)42:C=RI 
D(18)42 

340 IF A<=B OR A-B-C<1 TBEN330 
350 D=A-B-C:GOSUB1050:ON RND(4) 
GOT0360,37C,380,390 
360 PRI5T#-2,". . . - "BS" = "CS" 
+ "DS;;ABa,X)=A;GGT01060 
370 PRINT#-2.AS" - ... = "CS" 4 
"DS; :AN(Y,X)=B:GOTO106O 
380 PRI»T#-2,AS" - "BS" = ... 4 
"DS; : AN (Y, X)=C:GOTO1060 
390 PSINT*-2,A$ M - "BS" a "CS" + 

. . -"; : AN(Y,XJ=D:COTO1060 
400 A=RHD<18)42:B=RND(18)42:C=RI 
D(18)42: IF A<=B OK A=C OR C-U-B 

XI THEH400 

410 D=C-fA-B):GOSUB1050:ON 3NDC4 

) OOTO420, 430.440, 450 

420 PRIBT#-2,"... - "BS" = "C$" 
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- "DS; : A5(Y,X)=A:GOTO1060 

430 PRIBT#-2,AS" - ... = "CS" - 

"DS;:AH<Y.X)=B:GOTOlOG0 

440 PRIHT#-2,AS" - n B$" = ... - 

"DS;:AB<Y,X)=C;GOT01060 

450 PRIBT#-2,AS" - "BS" = "CS" - 

. . ." ; : AB(Y,X>=D:GOTO1000 
460 A=RBDC8) + 1:B=A:C=A:D=A:E=A:G 
OSUB1050:PRIBTI-2,AS" + "BS" + « 
CS" - "DS" + "ES" ="; :AS(Y,X)=A* 
3:GQTQ106Q 

470 A=RBD(8)+2:B=RBDC8)t2:C=RRD< 
A):GOSUB1050:OS RBD<7> GOT0480, 4 
90,500,510,520,530,540 
480 PRIBT#-2,"("AS" X "BS") - "C 
%•' = . ..";rAB<Y,X)=A*£-C;GOT01G6 


490 PRIBT#-2,"<"AS" X"BS") * "C 
S" = ...";: AN (Y. X)=A*E+C: G0T01G6 


500 PRIHT*-2."("AS" I ...) + M CJ 
" ="A*B+C;: AB(Y. X)=B: COT01060 
510 PRIHT#-2,"(. .. X "BS") + "CS 
" ="A*B+C;: AS<Y,X)=A:GOTOL060 
520 PRIBT#-2,"("AS" X ...) - "CS 
" ="A*B-C: ! AB<Y.X)=B:COT01060 
530 PRIBT#-2," (. .. X "BS") - "CS 
" ="A*B-C; : AN(Y,X>=A:COTO1060 
540 D=A*B-C:DS=STRS(D>:DS=RIGHTS 

CDS , LEI CD* > - 1 ) : PR I RT#-2 , " C" AS" X 
"BS") - .. , = "DS;:AB<Y,X)=C:GO 
T01060 
500 A=RBD<3>+2;B=A*2;C=A*3;GOSUB 

1050:PRIBT#-2,AS", "BS", "CS" , . 

..";:AF<Y.X)=A*4:GOTO1060 

560 A=RHD<Q>+2:B=RNDC&)+2;C=RBD< 

8)+2:IF A*B/C<2 OR A*B/C>9 OR A* 

E/COLNT(A*B/C) THEM560 

570 GQSUB1050:0N RBD<4) GOTO580, 

590,600,610 

580 PR1BT#-2,AS" X "BS; :GOSUB104 

0:PRINT#-2. ,, "CS" = ...";: AN(Y, X 

)=A*B/C:GOT01060 

590 PRIHTiC^.AS" X . . ." ; :GOSUB10 

40:PRIBT#-2," "CS" =' A*B/C;:AH< 

Y,X>=B:GOTO1060 

600 PRIHT#-2, M ... X M BS;:GOS(JB10 

40:PRlNT#-2," "CS" ="A*B/C: : AH<Y 

,X)=A:GOT01060 

610 PRW-2.AS" X "BJ;:GOSUB104 

0:PRIHT#-2," ... = "A*B/C; : AB<Y. 

X)=C:GOT01060 

620 A=RBD(7>+2:B=RBD<7)+2:C=RRD< 

7>+2:D=B: IF A<=C THEH620 

630 GOSUBlO50:OK RBD(2> GOT0640. 

650 

640 PRIHT#-2,"<"'AS" X "BS" ) + <"CS 

■ X "DS")=...X , 'DS;:AH<Y,X)=A+C:C 

OT01060 

650 FRlBT*f-2."< M AS" X"B$">-("CS 

" X "D$")=...X"D$;:AB<Y,X)=A-C:G 

QT010SO 

660 A=RKD(10)+lO:B-RKD(7)+2:C=RB 

JH7)+2:IF B+OA THEN6-J0 ELSE D=A 

-<B+C>:GOSUB105O:OB RHD<4) G0TO6 

il) t 680, 690. 700 

670 PR1HT#-2, M . . .-<"BI" + "CS") 

= "DS;:AB(Y,X)=A:GOTO1060 

680 PRIBT#-2,AS" -(.,.+ "CS") = 

• , DS;:AB(Y,X)=B:GOTO1050 

690 PRIBT*-2,AS" - (" B»" +...) = 




'•Mi:AH<Y.X)=C:G0TO1060 

700 PRIBT#-2,AS" -<"BS" + "CV'> 

= ...";: AH <Y, X) =D; GOT01060 

710 A=RBDQ0) + 10:B=RBD<8)+2:ORS 

D(8)+2:IP B-C<0 ORA-CB-CXl THEH 

710 ELSE D-A (B-C) : GO6UB1050: OF 

RSD<4) GOT0720. 730, 740,750 

720 PR1BT#-2, M ... - ("BS" - "CJ" 

) = "DSj: AB<Y,X)=A:GOT01060 

730 PRIBT*-2,AS" - C. . . - "Cfi") 

= "DS;:AS(Y.X)=B:GOT01060 

740 PRIBT#-2,AS" - <"BS" - ...) 

= "DS::AKY,X)=C:GOTO1060 

750 FF1BT#-2,AS" - <"BS" - "CS") 

= . . .";:AB<Y,X) = D:GOTOi060 
760 A=KBD<7)+2:B=R»D<7)+2:C=RBD( 
7>+2:D=RHD(7)+2:E=A*B+C-D:IP B<0 

THBB760 ELSE GOSUB1050f PRlST#-2 
,"(";AS" X "BS") + "CS" - "Dt" = 

...";:AH<Y,X>=E:GOT01060 
770 A=RHD(89)+10:B=RBD(8)+2:C=RH 
Dt8>+2:IF A-<B*CXQ THEI770 ELSE 

D=A-tB*C>:GDSUBlQ50:OB RBDC4) G 
OT0780,790,800,810 
780 PBIBTI-2,"... - <"B*" X "CS" 
) = "DS; : AB<Y,X>=A;GOTO1060 
790 PBIHT#-2,AS" - <... X "CS") 
= "DS;:AF<Y.X>=B:GOT01060 
800 PRIBT#-2,AS" - <"BS" X ...) 
= "DS;;AH(Y,X>=C:GOT01060 
810 PRIFT*-2,AS" - CBS" X "CS") 

= . ..";: AH(Y,X)=D:GOTO1060 
820 A*RRD(99) : GOSUB1050: DS="":IF 

LENUS) = 1 THEB930 
830 B*=LEFTS(AS.l):B=VAL(BI):OB 
B GOT0840, 850, 860,870,880,390,90 
0,910,920 

840 DS="X":GOT0930 
850 DJ*"XX";GOT0930 
860 DS="XXX":GOTO930 
870 D$="XL";GOT0930 
880 DS="L":GOTO930 
890 D*="LX":GOT0930 
900 DJ="LXX":GOT0930 
910 Dt="LXXX";GOT0930 
920 DS="XC" 
930 CS=RXGHTS<AS,1X:C=VAL(CS):IF 

C=0 THER1030 ELSE OB C GQTO940, 
950.960,970,980,990,1000,1010,10 
20 
940 D*=DS+"[":GQTQ1030 



950 DS=DS+"Il":GOT01030 

960 DS=DS+"II1":GOT01030 

970 DS=DS+"IV":GOTO1030 

980 D$=DS+"V" ;GOTO1030 

990 DS=DS+"VI":GOT01030 

1000 DS=DS+"VH":GOTO1030 

1010 DS=DS+"VlU":GOTOlt»30 

1020 D»=DS+"IX" 

1030 AH(Y,X> = A;PRIBTir-2,"ROMAH " 

CHRS<34>" "DS" "CHRS<34>" =" ; : GO 

TO 1060 

1038 REM» PRIBTER CODES FOR 
DIVISION SIGI S 

1039 REM* CHRSU8) SET GRAPHICS 
MODE * CHRS<28)CHRS(2)CHRS(136) 
REPEAT GRAPHIC CHARACTER 136 TVO 
TIKES * CHRftOO) GO BACK TO 
ORDIRARY PR I IT 1 10 * 

1040 PRIBT#-2." ";CHRS(18);CHRSC 
28) ; CHRS (2) ; CHRS ( 136 ) ; CHRS (28 ) ; C 
KRSC2);CHRS<201);CHRS<28);CHRSC2 
) ; CHRS ( 136) ; CHRS (30 ) ; : RETURB 

1049 REM* COHVERT BUKBERS TO 
STRUGS * 

1050 A»=STRS(A>:BS=STRS(B>:CS=ST 
RS (C> : DS=£TFS <D> ; BS=STRS ^E) ; AS=R 
IGHTS(AS,LEIT(AS)-1);W=RIGHTS(&S 
,LEI(BS)-1):CS=RIGHTSCCS,LEBCCS) 
-1):J)S=RIGHTS(DS 1 LEH(DS>-1):ES=R 
IGHTS(ES,LE»(ES)-1):RBTURB 

1060 HEXTY:F0RZ=1T02;PRIIT#-2;IE 
XTZ:BEXTX 

1069 REM*** PRIST THE ARSVERS ** 

1070 CLS:PRIBT0264,"PRIBTIBG AIS 
VERS" 

1080 PRIIT#-2.TAB(0):"ABSWERS SH 

EET #";SH 

1090 PRIHT#-2,TAB(10);CHRSC15);" 

LIST A";CHRS(14);TAB(.39);CHRS<15 

);"LIST B* , ;CHRS<14);TAB<68);CHRS 

(15);"LIST C";CHRS(14) 

1100 F0RX=1T012 

1110 PRIIT#-2,TAB(0); ,,M ;:PRIBT#- 

2,0SIBG"M)";Xj:PRlBTi»-2,TAB(4>; 

"";:PRIBT#-2.USIBG"####";AH<1,X) 

i : PRIHT#-2, TAB(14> ; "" ; ; PRIBT#-2, 

USIBO"##)"; X+12; : PRI»T#-2, TAB(18 

)"";;PRIBT#-2,USIB0 ,, #ff#riAB<i,X 

+ 12); 

1120 PRIBT#-2,TAB(26);"";: PRIST* 

-2, USI BG"##)" ; X; : PRIST#-2» TABOO 

) "" ; : PRIBTlT-2, USIBG"####" ; AB<2, X 

) ; : PRI BT#-2, TAB<40) ; "" ; : PRI BT#-2 

, USIHG"##)" ; X+12; : PRIBT#-2, TAB<4 

4)" ,, ;;PRIHT#-2,USIBG"####";AB(2, 

X+12); 

1130 PRlHr*-2, TAB<52> ; "" ; : PRIBT# 

-2,US[BG"##)";X;:PRIHTI-2.TAB(56 

) ;" M ; : PRISTH-2, USISG"#### M ; ABO, 

X);:PRIBT#-2,TAB(66);"";:PRIB7#- 

2,0SIHG"##>";X+12; : PRIBT#-2,TAB< 

70 );"";: PR I BT#-2, USIHG" f ###" ; AH < 

3, X+12) 

1140 HEXTX 

1150 PRIHT#-2 

1160 CLS: PRINT: PRIBT"RUB AGAII < 

Y/B)":AS=IHKEYS 

1170 AS=ISKEYS:1F AS="Y" THEB RU 

S ELSE IF AS<>"F' THEB1170 

1180 EBD 



« 
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ALIENS 




by John Baker 



SEE IF YOU CAN beat the 
alien computer. In thi£ 
game you try to score the 
most points against the computer 
or a friend. 

If you have a Tandy speech 
/sound pak, then plug it in and 
the program will teLl you what 
to do and give extra sound 
effects. 

The screen is set out on a 
square *rid with raudon numbei* 
in rows, 

4 7 9 3 2 7 
7 5 4 13 2 

Numbers that are odd are 



32K -f speech pak (optional) 
GAME 

negative and numbers that are 
even are post hive, e-g the number 
1 Is -1 and the number 4 Is +4. 
The cursor is to the left, eg 

4 7 9 3 2 7 
7 5 4x1 3 2 

In this case the letter ' x' is 
the cursor, therefore the number 

is -1. 

You take turns at picking a 
number. One person moves the 
cursor vertically when it is 
his/hers/lts turn and the other 
person moves the cursor 

horizontally when it is 

hls/hers/its turn. This is so 



that you can only select froa 
one column or row, eg 

4 6 2 3 17 
1 3 6 7x2 4 
7 6 2 113 

If player one can only move 
horizontally and it is his turn. 
He can select -1, -3, 6, -7, 2 
or 4 because the cursor is In 
row two. 

Player one uses the up and 
down arrows to move the cursor 
and the * r key to select a 
number. This also applies when 
playing the computer. 

Player two uses the left and 
right arrows to move the cursor 
and the ' -' key to select a 
number. 

The computer keeps score at 
the side and when all numbers 
are taken or it is imposlble for 
bath players to have a turn then 
the game is over. 

Person with the highest score 
wins that game. 

When the name is over you can 
play against them a«aln. The 
computer keeps score of how many 
games each person has. This is 
above each players score in the 
game. 

At any time during the game 
you may res-art with »R* or end 
the program with ' E' . 



The Listing: 



GOTO 10 

1 •***ALIEN BY JOHN BAKER 

***VITH OR WITHOUT THE TANDY 
mSPEECH/SOUND CARTRIDGE. 
3 SAVE"284C::T:ENiy 1 
10 P0KE4HFF7D, 1: POKE4HFF7D, 0; GOT 
0100 

20 POKE&HFF0OU,52:FOKE«HFFO0+3, 
63:POKE4HFF0O+35.$0:FOE 1=1 TO L 
EN (AS) 

30 IFPEEK<4HFF7E> AND 128=0 THEI 
30 

40 POKE AHFF7E,ASC(MID$<A*, I.l>) 
:BEXT I 

50 IF PEEK<*HFF7E> ABD 128=0 THE 
N 50 

60 POKE dHFF7E, 13: RETURN 
70 IF PEEK<&HFF7E)=191 THEN 70 E 
LSE RETURN 
80 IFP£EK<aHFF7E> AND 128=0 THE8 

80 ELSE RETURN 
100 GOSUB100O 

105 Z=352:A*='\.JOHN BAKER SOFTV 
HER ... PREZEHT":COSUB20 
110 PR I NT<?Z* 7 , " J ohn" +CHR* ( 128 > +" 
baker" +CHRS ( 128 ) +"sof Ware" ; 
113 IF Z-32 THEN 120 
115 FORCV=lTO100: NEXTCT: MtUifZ* 
7,STRING$<19, 126) ; : Z=Z-32:GOT011 

120 Z=64+7 
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125 f08CV=lTO20:HEXTCV:PRiraZ,C 
HRS<163);:Z=Z+1:IF Z=64+7+19 THE 
N 130 ELSE 125 
130 PRIHTm28 + 13, "present"; :Z=16 

0+13 

13S FRIBT<92,CHRtU63>; :Z=Z+1:IF 
2=160+13+7 THEN 140 ELSE 135 
140 A*="THE A LE ] ":GO3UB20: PR I 
KT$288+12,"THE ALIEN"; :Z=256+4+l 
2:Z1=Z+1 

145 PRIRT®Z,CHRS<211>; :PRIBT«Z1, 
CHRS(211);:Z=Z-1:Z1=Z1+1: IF Z=25 
6+11 THEN 150 ELSE 145 
150 PRINT<9256+U.CHRS(209); :PRIH 
T«256+2l,CHR*«K>)i:PRI>T«268+ll 
, CHRS (2 13) ; i PR 1 BT<?288+21 , CHRS (21 
8); : PRI HT&320+11, CHRS C180); :PRIH 
TG320+21, CHRS (184) ; i Z=220+12: Zl= 
320+20 

155 PRINTSZ, CHRS f 186); iPRIHTSZl. 
CHR$(ia8);:Z=Z+l:Zl=Zl-l: IF Z=32 
0+12+5 THEN 160 ELSE 155 
160 Z=320+12 

1G5 PR18T$Z.CRRS<163);:Z=Z+1: IF 
Z=320+12+3+6 THEH 170 ELSE 165 
170 DATA 2,2,0,0.0,254,254.254,1 
5.0,0,254,0,0 

175 G0SUB70:D1M A<13) : Y=4HFF7E: P 

OEEY, 175:GOSUB80:FORB=)TO 13:REA 

D A(B):REXT B:FOR A=0 TO 13: POKE 

T,A:GOSUB80:POKE Y, A (A) : GOSUB80 

; NEXTA 

180 FORA=0TO10:FORB=50 TOIOO STE 
PIO: POKEY, : GOSUB80: POKEY, B;GOSU 
Ba0:NEXTB,A:FOftA=0TO5:FORB=lTO25 
5STEP10: POKEY, 0; GOSUB80: POKEY, B: 
G0SUB80:NEXTB ( A;P0KEaHFF7D,i;POK 
E4HFF7D.0 

135 PRINT9384+7, " Instruct Ions" +C 
HRS < 128 ) +" v" +CHRS ( 12& ) +" or" +CRRS 
<128)*"n";: AS=" INSTRUCTIONS -YES 
DR MO ":GOSUB20:GOSUE70 

186 AS = IHKEYS: IFA*=""-IHEN186 

187 1FA*="Y" THEH AS="YES" : GOSUB 
20:GOr0190 ELSE IF A*»"iT THEN A 
S*"HO":GQSUB20:GOTO190 ELSE 186 
190 PRl»T«480»" ,, i ;FORCV=1T020;FO 
RA=lTO100:NEXTA:PRINT:HEXTCV::IF 
AS="YES" THEH 1200 ELSE 200 

200 CLSO:GOSUB1000:PR1HT<?33,STSI 
HG$(10 ( 21B>;"the"+CHR$(12e)+"ali 
en";STRIHCS(ll,213)::Z=128+10:DI 
K D(IO.IO) 

201 PRINT&224+5. "SELECT 1 OR 2 P 
LAYERS?" ;:AS="SELECT 1 OR 2 PLAY 
ERS":GOSUB20:GOSUB70 

202 AS=INKEYS: IFAS=""THEN202ELSE 
IF A*="1"THEN600 ELS3 IFAS="2"T 

HEN203 ELSE302 

203 GOSUB20:FRINT<?224*5.STRINGS< 
22,12e);;AS-"PLAYER l.EHTER YOUR 

HAHE":GOSUB20:GOSUB70jPRIHT«224 
+5,"*';: INPUT'PLAYER 1";F5$: PRIST 
*224 +5, STRING* (26, 128); CHRS (14 9) 

204 A*=" PLAYER 2 . EHTER YOUR BAM 
E ";GDSUB20:GOSUB?0: FRINTG224+5, 
"";: INPUT" PLAYER 2" ; F6S: PRINKP22 
4 +5, STRING J (26. 128) ; CHRS (149) ; 

205 PR1NT3Z.STRINGSC21.32); :Z=Z+ 
32: IFZ=44B+10THEN21OELSE2O5 

210 PRINT<?129, "player"; :FRINT<016 



1 , " one" ; : PR I »T(9257 +32 , "player" ; : 
PRIHT<02e9+32. " two" ; : PRINTS 160+4 , 
P3;:PRIHTl?289+32+3,P4;:PRINTei93 
."score"; :PRINT<?353. "score"; 
211 GOSUB1500 
215 GOSUB 1600 

219 CL=1:H=0:RV=1:P1=0:F2-0:HC=0 

:CM=0;MP=0:MO=0 

220 GOS3B17G0 

225 P1=P1+J:PRIHT<9193+32,P1; 

230 GOSUB1900 

235 P2=P2+J:PRI»T«322+63,P2; 

240 GOT0220 

599 GOTO 599 

600 GCSUB20:FR1NT<?224+5,STRIBGS< 

22,128); 

604 AS="HUKAH . . YOU MUST FIRST 
ENTER YOUR HAKE . ." : GOSUB20;GOSU 
B70: PRlRT<9224+5 , "HUMAfi" ; : IHPUTP7 
St PRINTG224+5. STRINGS (26, 128) ;CH 
R$(149); 

605 PR!NT<?Z.STRlNGSf21,32);;Z=Z+ 
32: IFZ=44a+10THEM610ELSEQ05 

610 PRlNT©l29,"human";P3; : PRISTS 
257,"aUen M iP4i :PRIMT<?161, "score 
";:PR1HT«289, "score"; 

611 G0SUB1500 
615 COSUB1600 

619 P1 = 0:P2=0:CL=1:RV=1:KP=Q:XO= 
0:«C=0;CH=1 

620 GOSUB1700 

625 Pl=Pl+J:PRlBT<n93,Pl; 
630 REK COMPUTERS TURN 

639 X=l 

640 KL=D(RV,X):1F KL=0 THEN X=X+ 
l:GOTO650 ELSE GOSUB800; F0FT=1T0 
10:J=D(RV,T):GOSUB1810: IF J=0 TH 
EH IF T=10 THEN 665 ELSE HEXTT 

641 IF KL=>J THEN NEXTT ELSE X=X 
+ l:GOT0640 

645 G0T0665 

650 IF X=ll THEN HP=1: GOSUB900:G 

OTO620 

660 G0TO640 

665 MP=OtCL::X-PR!NTi096t9+<32*RV) 

+ (2*GL) . CHRS< 191) ; ! P2=P2+KL; D(RV 

,CL)=0:PRINT«321,P2j :SOUND20. 1:G 

0T062G 

000 REK FIX 

810 IF KL=1 THEH KL=-1 

820 IF KL=3 THEH KL=-3 

830 IF KL=5 THEH KL=- 5 

840 IF KL=7 THEH KL=-7 

850 IF KL=9 THEN KL=-9 

000 RETURB 

900 REM COMPUTER MISSES TURN 

910 IF HP=1 AND ND=1 THEK 25000 

920 IF MP=1 AND MC=0 THEN At="TH 

E ALIEN MISSES A TURN" ! GOSUB20: G 

Q3UB76:COT0620 

9 30 AS="YOU MUST PASS YOUR TURN 

":GOSUB20:GOSUB70:RETURK 

999 GOTO 999 

1000 REM BORDER ROUTINE 
1010 CLSO:Z=lb:Zl=16 

1012 FORCV*1T020:NEXTCV:PEINT<9Z, 

CHR$U56>;:PRIHT3Z1»CHR*U56);;Z 

=Z-1:21=21+1: IFZ=0 THEH 1014 ELS 

E 1012 

1014 PR1HT<50,CHRS(15B); :PRINT«31 

,CHR*U57); 

1020 Z=Z+32:FORCV=1TQ20:NEXTCV:P 



RIHT(?Z,CHRS<154);:PRIHT<?Z+31,CHR 

» (149);; IF 2=416 THEN 1O30 ELSE 

1020 

1030 PRlNTi?446 l CHRt(155);:PRIHT« 

479, CHRS (151); :Z=1:Z1=30 

1040 F0RCV=lTO20;NEXTCV;PRIBTt?44 

8+Z.CHRS (147) ; : PRI HT<?448+Z1, CHRS 

(147);:Z=Z+1:Z1=Z1-1: IF Z=16 THE 

H Z=0:Z1=0:RETURH ELSE 1040 

1199 REK BSTRUCTIOHS 

1200 GOSUB1000 

1210 PRI NT<?33 , STRI HGS (9 , 170> ; " 1b 
struct Ions" | STRINGS (9, 165) ; 
1220 Z=9>7 

1225 PRINTS, STRI»GS(30, 32) ; :Z=Z 
+32: IF Z=449 THEN 1230 ELSE1225 
1230 PRINT«97,"CAH YOU BEAT THE 
ALIEN?"; :PRIHT«9129. "THE AIM OF T 
HIS GAMS IS TO";:PR1HT@161."SCOR 
E HORE POINTS THAR THE" ; : PR1HTG1 
93, "COMPUTER OR OPPONENT."; : PRII 
Ti?225,"YOU SELECT YOUR SCORE BY" 
;;PRINT«257, "PLAYER %3*V PLAY 
BR 2:'-' M ; 

1235 PR1HT©289,"VHEN ALL NUMBERS 
AFE"iiPRlST«321,"TAKEB THE ONE 
VITH THE HIGHEST"; :PRIMT(5353,"SC 
ORE VINS/'i 

1240 AS=" CAH YOU BEAT THE A LEE 
I . . . THE AIM OF THIS GAME IS T 
SCORE MORE POINTS THAN THE COM 
PUTEF OR OFPOHENT . YOU SELECT YO 
UR SCORE BY ..PLAYER 1 , 1 KEY K 
ND PLAYER 2 .MY BUS KEY" : GOSUB20 
:GOSUB70 

lZa5 AS="VHEH ALL NUMBERS ARE TA 
KE H . THE ONE VITH THE HIGHEST 
SCORE VI NS . ":OOSUB20:GOSIJB70 
1246 PRINT0417," <PRESS AH 

Y KEY)";: AS=" PRESS ANY KEY" : GOSO 
B20:GOSUB70 
1250 AS-INKEYS: IFAS=""THEN1250 

1255 GQSUB70:DIK B<13> : Y=4HFF7E: 
POKEY, 175 :GOSUB80 

1256 FORB=OT013:B(B)=0:NEXT 

1257 BC7)=254:B'8)=15 

1260 FORA^3T013:POKEY.A:GOSUB8C: 

POKEY, B(A):GOSUB80:NEXT 

1265 Z=20: 21=120: FORB=lT040: : POK 

EY, 0: GQSUB30: POKEY, Z+ <B*2) : GOSUB 

80:FOKEY,0:GOSUB80: POKEY. Z1+CBI2 

>:G0SUB80:NEXTB 

1270 POKE&HFF7D,1:POKE4HFF7D,0 

1275 Z=97 

1280 PRINT<SZ,STR1NGS<3Q,32);:Z=Z 

+32: IFZ=449THEN1285 ELSE1280 

1285 PR1NTG97,"Y0U MAY MOVE ONLY 
H0RI20STALLY";:PRIHT<?129,"0R OH 

LY VERTICALLY."; : PRINT5161 . "SCOR 
IBG:-"; iPRIHT«U93,"0DD NUKBERS-H 
EGAT1VE"; :PRIHT«225,"EVEN NUMBER 
S-POSITIVE"; :FRINT®353,"ROTE:-TH 
AT THE CURSOR IS TO" ; :FRINT®353+ 
32, "THE LEFT OF THE NUMBER!"; 

1286 FRin©257,"FRESS R TO RESTA 
RT";:PRINT9289," PRESS E TO QUIT" 

1290 AS=" YOU 'KAY MOVE ONLY HORI 
ZORTALLY OR ONLY VERTICALLY ... 
SCORING IS .. ODD NUMBERS ARE RE 
GATIF AHD EVEH BUMBERS PaSITIF . 
. PRESS R TO RE START THE PRO GRA 
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H ..PRESS E TO QUIT THE PRO GRAM 

IV 

1295 GOSUB2O:GOSUB70: AS=" .NOTE 

THAT THE CURSOR 15 TO THE LEFT 

F THE NUMBER .. GOOD LUK! ":GOSU 

B20:GOSUB70 

1300 PRINT*417," <PRESS AN 

V KEY>"; : AM"PRESS ANY KEY TO BE 

GIN ":GOSUB20:GOSUB70 

1305 A*=!NKBY*: IFA*=""THEN1.3Q5 

1308 POKEY, 175 

1309 FORB=0TO13:B<B)=0:NEXT:B(7> 
-354: B(8>-15: FORA=0TO13; FOKEY. Ar 

tfOSUBOO: POKEY. B'A)iGQSlB80: NEXT 

1310 Z=20:Z1*120: FORB^SOTOISTEP- 
1 : FOKEY, 0: GOSUB80: POKEY, 2+B: GQSU 
B80: POKEY, 0: GOSUBOO: POKEY. Zi+B: O 
QSUB00:NEXTB 

1315 FOKE4HFF7D, 1: P0KE&HFF7D, 

1320 FORA=1T016:FORCV=1T0100;NEX 

TCV: PR IN 1*460, STRING* '22, 32) ;NEX 

T 

1330 GOTO 200 

1500 REK NUMBER ROUTINE 

1505 FM:G=1:S=0 

1510 A=RND(22>:QN A GO£UB 1520,1 

525, 1530, lWb, 1540, 1541, 1542, 154, 

3, 1544, 1520, 1525, 1530, 1535, 1540, 

15*1 , 1520, 1525. 1530, 1535, 1520, 15 

25.1525,1520 

1515 G=GU; IF Gm THEH G0SUB151 
7 

1516 IF S=l THEN RETURN ELSE 151 


1517 F=FM:G = 1:£F F=ll THEN S=l: 
RETURH ELSE RETURN 

1530 D<F.G>=1:RETURN 
1525 D(F,G)=2: RETURN 
1530 D<F,G>^3;RETURN 
1535 D(F,G>=4: RETURN 

1540 D<F,G)=5:RETURN 

1541 DCF,G)=6:RETURN 

1542 D<F,G>=7:RETURN 

1543 D<F,G)=8:RETURN 

1544 D<F,G>-9: RETURN 
IfiOO REM PRINT NUMBERS 
1005 G=1:Z=128+10:Z1=Z 

1010 FORX^lTOlOiPRlNT^Z.DtG.X);: 
Z^2:NEXT:G=G + 1:21=ZH32:Z=Z1:I 
F GM1 THEN RETURN ELSE 1610 
1700 REM VERTICAL PLAYER SELECTI 
ON 

1705 H=9G+8+<2tCL)+>32*RVJ 

1706 FORX^lTOlO: IF D<X,CL)O0THE 
N 1710 

1707 NEXT. KO-l;G0SUBt650:J=O: RET 
UR1 

1710 C*=CHR*U75> 

1711 KQ=0 

1735 PR1NTSH.C*; 

1720 AS=INKE7S:'lFAS="°THEN1720 

1725 FRINT9H,CHRS<32>; 

1730 IFA*<HR$(94) THESH=H-32:R 
V--EV-1 

1731 IF A$="R" THEN GOSUB3000O 

1732 IFA$=CHF$<10) THEN H=H+32:R 
V-RV+l 

1733 IFAS=**E ,, THEN GOSUB35000 

1734 IFA*="1" THEH J 1 = 1GOSUB180 
0: RETURN 

1740 IFH<128*10 THEN H=Ht(32410) 
: RV=RV+ 1 



1742 IFH>416*10420 THEN H=H-<32* 
10):RV=RW-10 

1745 PF1HT«H,CKR*U75); : GOT01720 
1800 REN SELECTION OF NUMBER 
1805 J-D(RW,CL):1F J=0 THEN AS=" 
YOU CAPNT DO THAT " : GOSUB20; GOSU 
B'7Q:COTO1830 ELSEDCRV, CD ^0; PRIN 
T*HU,CHR$U91);:SOUND20, 1 
1310 IF J=l THEH J*-l 

1811 IF J=3 THEN J=-3 

1812 IF J=5 THEN J=-5 

1813 IF J=7 THEN J=-7 
1314 IF J = 9 THEN J=-9 
1815 RETURN 

1830 IF Jl=l THEN 1710 ELSE IF J 

1=2 THEH 1910 

1050 KfcM SEE IF NO PLACES LEFT 

1851 IF CM=1 THEN MC=1 : GOSUB900: 

MOO: RETURN 

1355 IF KP=1 AND MO-1 THEN C0T02 

0000 

1860 A$="Y0U MUST PASS YOUR TURN 

. . " : G0SUB20: GOSUB70: RETURN 
1900 REM HORIZONTAL PLAYER SELEC 
TION 

1905 H=96te+<32*RV)+<2*CL> 

1906 FORX=1T010: IFD(RV, X) O0THE5 
1910 

1907 NEXT:MP=1;GOSUB1B50: RETURN 

1910 C$^CHR$(175) 

1911 MP=0 

1915 PRINT«H,CS; 

1920 AS=INKEY3: IFAS=""THEN1S20 

1925 PRINT<?H,CHRS<32); 

1930 IFA*=CHRJ(9) THEN H=H+2:CL= 
CL+1 

1931 IF AS="R" THEN GOSUB30C00 

1932 IFA«=CHR*<6> THEN H=H-£:Cl- 
CL-1 

1933 IFA*="E"THEN GOSUB3500C 

1934 IF AS="-" THEN Jl=2:GOSUB18 
00: RETURN 

1940 IFH<96H0+(32*RV> THEN H=H» 

2:CL=10:H=H+<2*9> 

1942 iFH>96*10+18+(32*RV) -THENH= 

H-<2*10>:CL=1 

1945 PRINT«H,CHRS(175>; : GOTG1920 

2000 Y=8iHFF7E: POKEY, 175; GOSUB60 

2005 ON JK G0SUB2010, 2020,2030, 2 
040 

2006 P0KE4HFF7M : POKE4HFF7D. 

2007 RETURN 

2010 F0RX=255T01STEF-1: POKEY, 0:G 
OSUBBO: POKEY, X: GOSUB80: POKEY, 7 ; G 
OSUB80: POKEY, 62: GOSUB80: POKEY, 6: 
GOSUBOO: POKEY, 15:UUSUB80; NEXT: RE 
TURN2020 FORX=1T0200STEP5: POKEY, 
0; GOSUB80: POKEY. X: GOSUB80 : POKEY, 
7: GOSUB60: POKEY, 62: GOSUB80; POKEY 
, 8 : GOSU360: POKEY, 15: GOSUB60: NEXT 
: RETURN 

2030 F0RB=0TO13:A<B)=0:NEXT:A<7> 

=7:A(8) = 16! A(9) = 16:A(10) = 16:A(12 
>=56 

2031 F0J?A=0T013;P0KEY,A:GOSUB8Q; 
POKEY. A(A);GOSUB80: NEXT 

2035 POKEY, 13: GOSUB80: POKEY, 0: FO 
RA=lTO1500+500:SEXTA: RETURN 
20000 JK=2:GOSUB2000:JK<S:GOSUB2 
000:A*="CAHE OVER . M :GQSnB20;00S 
UB70: IF P1>P2 THEN A*=P5$+" IS T 
HE WINNER": P3=P3 + 1 ELSE IF P2>P1 



THEN A$=P6$+" IS THE WINNER" :P4 
= P4*1 ELSE AS="YOU BOTH VIN ..IT 
IS A DRAV ":P3=P3+1:P4=P4+1 

20005 PEINT<?289+35.P4;:PR1NTI?164 

,P3; 

20010 GOSUB20:GOSUB70: A$=" PLAYER 

1 ..YOU M +P5»i» RAVE 1 "tSTR*<P 
3>*" GAMES ":GOSUB20:GOSUB70:AS= 
"PLAYER 2 ..YOU "+P6$+" HAVE 1 » 
+STR*(P4)+" GAMES " : GOSUB20:GOSU 
B70 

20020 Aft="D3 YOU BOTH WISH TO CO 
NTINUE PLAYING .. YES OR NO. .":G 
OS.UB20:GOSUB70 

20025 PR I NT?96+ 10. "CONTINUE?"; 
20030 A*=INiCEY$: IFA$=""THEN3QQ30 
EU < 5EIFA*-"Y'THENGOSUB1000:Z-128+ 
10;PRlNT<533.STR[NGM10,218>;"the 
' , +CHRta28)+ , »allen";STRINGS(ll 1 2 
13>;:GOTO205 ELSE IFA*="N" THEN 
20040 ELSE20020 
20040 GOTO 25050 

25000 JK>2;GOSUB2O00:JK=3:GOSUB2 
000: A$=" GAME OVER . ." 
25005 IF P1>P2 THEN AS="YQU HAVE 

BEATEN THE A LEE N ":GOSUB20:GO 
SUB70::P3=P3+1 ELSE IF P2>Pt THE 
N A*="THE A LEE N HAS BEATEN YOU 

.. YOU LOSE !":GOSUB20:G0SUB70: 
P4=P4+1 

251)10 IF P1=P2 THEN A*="THE GAME 

VAS A DRAV , . VE BOTH VIN . ,";G 
OSUB20:GOSUB70:P3=P3+1: P4=P4+1 
25015 PRINTn29+5,P3;:PRINT<0257* 
5.P4; 

25020 U=P7S+" HAS 1 »fSTRJ(.P3> + 
" GAMES ":GOSUB20:GOSUB70:A$= M . 
. THE A LEE N HAS 1 *HSTR$(P4)+" 

GAMES " : GOSUB20: GOSUB70 
25030 AA=" ,. I VISH TO CONTINUE 

FLAYING . . DO YOU ALSO VISH TO 
CONTINUE PLAYING HUMAN .. YES OR 

NO ":GOSUB20:GOSUB70 
25035 PRINT396+10, "CONTINUE?"; 
25040 Afc=IN£EYS: IFAS— "THEN25040 
ELSEIFA*= M Y"TIIENGOSUB1000;Z-128+ 
1 : PR I NT»33 , STR I NG$ ( 10 , 2 18 ) ; " t he 
,, +CHB*<128)+ M alJea M jSTRlMGI(11.2 
13);:GOT0605 ELSE IF AS="N" THEN 

25050 ELSE 20020 
25050 CLS8:AS=" THIS VAS BROUGHT 

TO YOU BY JOHN BAKER SOFTVHER " 
:GOSUB2O;GO3UB70:JK-l:GOSUB2O00: 
JK=3:GOSUB2000:PRINT*480, ,, THE EN 
D!"; :END 

30U00 A$=" ARE YOU SURE THAT YOU 
VANT TO RE START THE PRO GRAM 
.. YES OR NO .":GOSUB20:GOSUB70 
30010 AS=1NKEY$: IFA$="" THEN30010 
30020 IFA$="Y M THENRUN ELSE IFA*= 
"N" THEN A$=" GOOD CHOICE ":GOSU 
B20:GOSUB70:RETURN ELSE 30000 
30050 GOT025050 

35000 A$="ARE YOU SURE YOU VANT 
TO QUIT THE PRO GRAM .."YES OR NO 

.. M :GOSUB2C:OOSUB70 
35010 A$ = INKEY$: IFAf ^""'THENSSOIO 
ELSEIFA$= M Y M THEH25O50 ELSE IFAS= 
"N-THEN A$=" GOOD CHOICE " : GOSUB 
20: OOSUB70: RETURN ELSE35000 



-* 
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by Bob Home 



CoCo 1, 2 and 3 EDUCATION 



PLEASE HOTE THAT if you 
have a grey-case CoCo, you 
may find it advantageous 
to PCLEAR8 before loading the 
proRraa- 

Id this program, vou are able 
to choose the level of numbers 
to be practised (19 to 99 In 9 
levels). You nay also choose to 
practise picking the prime or 
the composite or a mixture of 
both from a set of 4,5 or 
numbers. 

These numbers are out at the 
top at the screen, The bottom 
half of the screen represents a 
view ol empty space through your 
observation window. Vhen you 
have the answer correct, a 
spacecraft suddenly appears, 
zooming straight towards you. At 
the last rauroent, however, It 
changes course and zips beneath 
your window. The various images 
of the spacecraft are drawn and 
stored on graphics pages 4 to 8. 

These are then copied to page 
2 with the PCOFY command. This 
happens so rapidly that a short 
delay loop has to be included 
(Line 1150 In Version 1 and Line 



1110 In Veislon 2>. 

Graphics page 3 holds the view 
of empty space. 

Two versions (as mentioned in 
the previous paragraph) are 
included. The first version 
contains class names which, of 
course, you will nant to alter 
to suit your own class. 

Change the data In LIBE 1520. 
Also change the value of TL In 
Line 10 ' to the number of names 
you wish ta enter. If you have 
more than 28 in your class, you 
will have to find some other 
method to set the user's name 
(Lines 500 to 580). 

For example, you could use a 
similar method to that used In 
my programs on fractions. 

Of course, if you are using a 
CoCo 3 then Just set the VIDTH 
to 40 and you should have no 
probLems. 

In any event, if you have a 
problem with this, please 

contact me. In this version, 
pressing "E" on the final screen 
of the program will get you a 
list of users who need further 
help. 



Please treat this as a guide 
only as some users will 

deliberately get answers wrong 
to prolong their stay at the 
computer. 



Listing One 



1 REM************************t** 

2 REK* PRIME AHD COMPOSITE * 

3 REK* NUMBERS*** FOR C0C01 a 2 * 

4 REM* BY * 

5 REM* BOB HORHE * 

6 REM*************************** 

7 G0TO9 

8 Sky/B ,, 3mB:y :EHD'2 

9 IF PBEK<iee>=8 THEBPOKE248,50: 
P0KE249, 98: POKE250, 28: P0KE251, 17 
5: POKE252, 126: FOKE253, 173 : P0KE25 
4, 165: POKE410, 126: P0KE41 1 . 0: POKE 
412,248: REK*******DISABLE <BREAK 

KEm*************mm***m* 

10 PCLEAR8:CLEAR600:Tt=28:DIMCS. 
V$ , CHS (58) , WS (T L > , RS (TL > , PN (25 > , 
Ch , {73> ( CA<8>,AR<4>,A<QU>,TT<3> 1 D 
(6),C(6),CS(6) 

20 CLS;PRIirT<n94 ( ' 'PRIME AKD C0MP 
OSITE HUKBERS.":PRI8T(9270, M BY ,, :P 
RiHTi?330 ( "BOB HORBE.":SCREEM0,l 
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30 FQRX = 1T025:READPN(X>: NEXTX: FO 

RX=lT0?3: READCN(X) : KEXTX 

40 FORZ = GT058:READCHS(Z>: NEXTZ: F 

0R2=1T0 TL:READNS<Z); NEXTZ: FORZ= 

1T0 TL:RS(Z)=STRING$<3, 32): NEXTZ 

50 PS=" L16T16P16" : P1S="T12L4V150 

3CEC04L2C03L4C04L2C" : P2t-"L8T8Pa 

":P3S="T12L402V15CFDEGABGFDECGAD 

FEGCFDEGADCGEFL1C";A=KHD(-T1KER> 

60 RA$(1)="GREAT M :RA*(2>= ,, G00D M : 

RAS (3 > = " TOPS" ; RAS <4 ) =" YE AHHH" : CO 

LOR5.8: PK0DE1, 1: PCLS:DRAV"S4BK5, 

20U20NG5F5":GET(O,0)-a0,2O),AR, 

C:PCLS:CET(0,0)-UO t 20),AQ. G 

70 L=22:Y2=0:S=8 

80 CIS="C8R8U2R8D2R8U4K16D4R8U2R 

8D2R8D3L8D2LeU2LOD4LlGl4L8D2L8U2 

L8U3":GOSUB150:PCOPY2T03;DRAV"S4 

EX95, 165" +C1S: PAINT (97, 166> : LIKE 

C122. 165)-<131, 168), PRESET, BF:GO 

SUB15Q;PCQFY2TQ4 

90 CLS:PRISr$261, H JUST A MOMENT 

PLEASE. ":SCREENO r l 

100 PCLS: DRAVS8BM63, 163"+C1S: PA 

INT(65. 165) :L1NEU19, 163)- (134,1 

70) , PRESET, BF: G0SUB150; PC0PY2T05 

110 PCLS: DRAVS12BM31, 161" ♦CIS: P 

A1NT(32, 162>:L1NE(114, 16D-U39. 

173).PRESBT,BF:GOSUB150:PCOPY2TQ 

6 

120 PCLS: DRAV"S16BM0, 162"+C1S: PA 

INT(2,164):LINE<110,160)-U45,17 

6), PRESET, BF:G0SUB150:PCOPY2TO7 

130 PCLS:C1S="C8U2R8D2R8U4R16D4R 

8U2R8D7L8U2L8D2L16U2L8P2L8U2L8U3 

":DRAV"S21BK0,164 n +Cir PAIHT(2.1 

66):LINEa03,161>-(148,191>,PRES 

E1,BF:GOSUB150: PC0PY2T08 

140 GOT0410 

149 REM****VlNDOVS OF S-SH1P**** 

150 DRAVC7S4BM0, 133M3), 143R195K 
255, 133NL255BM225, 143M3NR30L195 
nU43L3G H :PAlBT(35,135>,7,7;PAINT 
(2. 189).7,7:LINE<0,103>- (255,125 
).PSET.B 

1G0 Xl-2;Yl=118;Cl=6;Cfc="KEYS 

,":GOSUB170:X1 = 140:CM"EHTER 
, HELP" : GOSUB170; DRAV"CaBK57, 113V 
E3NF3R8BRUR8NH3HG3"; RBTURW 

169 REM***DIVIDE UP TO PRIHT**** 

170 IF LEN(CSX=L THENVS=CS: GOSU 
B210: RETURN 

160 FORT=L T01STEP-1:IF MIDS(CS, 
T.l)=" "THEM200 
190 NEXTT 

200 WJ=LEFT3tC*.T):G0Sl)B210;C»=S 
IGHTS <CS. <LEN (CS > ) -T) : GOT0170 

209 REIi***TO GRAPHICS SCREEN*** 

210 IF SC=1 THEN260 ELSEDRAV"S=S 
;C=Cl;BM"+STR*(Xl>+","+STRt<Yl) 
220 F0RI=1TQLEN<VS) 

230 F=ASC(KIDS(VS,I,l>>-32 

240 DRAtfCHKF)+"BR3" 

250 NEXTI:Y1=Y1+Y2; RETURN 

259 REM*****TO TEXT SCREEH***** 

260 PR INTVS: RETURN 

269 REH***GET NEV PAGE (TEXT)*** 

270 PHINT©484,"PRESS <ENTER> TO 
CONTINUE."; : INS=INKEYI 

230 INS=INKEYS;IF INSOCHRSU3) 

THEH280 ELSE RETURN 

289 REM*****HELP ASKED FOR****** 



290 PUT(P,40)-(P+10,60),AQ,PSET: 

IF H<HH-1 THEH320 

300 IF Rl=l THEN CS="PRIK£" l£2$= 

"ONLY 1VQ FACTORS." ELSE CS="GOM 

P0SITE":C2S="MORE THAN TWO FACTO 

RS." 

310 Ct*CS+" NUMBERS HAVE "4-C2S:X 

1 = 0: Yl=65: Cl=7: GOSUB170: F0RX=1T0 
1500: NEXTX: LINE (0,50) -(255. 95), P 
RESET, BF: PUT (P. 40)- CP+10, 60> , AR, 
PSET:FORX=1TO HM: D(X)=0: HEX7X: H= 
0: RETURN 

320 H=K+1: IF H=3 THEN NV=NVU 

330 D=ERD(HK):IF D=B THE5330 

340 IF D(D)=1 THEB330 ELSE D(D)= 

1 

350 A=0:FORX=1TO C(D> 

300 IF C(D)/X=1BT(C<D)/X) THEH A 

=A+1 

370 HEXTX 

380 AS=STR$(A):X1=0: Yl=65:Cl=7:Y 

2 = 14:C$=C»(D)+" HAS*'+AS+" FACTOR 
S.'*:GOSUB170 

390 FORX=LT01500: NEXTX 

400 Ll!)E(Q,50)-(255, 95), PRESET, B 

F;PUT<P ( 4O)-(Ptl0,6O),AR ( PSBT;RE 

TURN 

409 REK*****CHOOSE A LEVEL****** 

410 CS : CHRt(128):CLS:PRI»T'?0,STR 
INGS<5, 128)+" please" +C$+"ch30se" 
tCS+"a"+C£+"lever+STRlNGS(5,128 
>; 

420 F0RX=1T09:FRINT<?X*32-K37,STRS 
<X>V - NUMBERS TO"X*10+9; : NEXTX 
430 PRINT@416, STRINGS (3, 128)+ M pl 
ease' ' +CS+" t vpe" +C$+"a" KS+" nunbe 
r"+C»; :POKE1464 r 40;POKE1465,49:P 
OKE1406, 45: POKE1467, 57 : POKE1468, 
41:PRim445, STRING* (3, 128); 
440 INS=IHKEYS 

450 1NS=IHKEYJ:IF INS="" THEN450 
ELSE!? ASCUNSK49 OR ASCUBS>> 
57 THEH450 

459 REK*******VH1CH KIND?******* 

460 H= VAL < INS) : CLS: PRIBTSO , STS I N 
G»<6,128H"please"+CS+"c:hoosc"+C 
S+"a"+CS+"type"+STRINGS<6,128>; 
470 PRIHTei04, M l - PRIME." :PRINT 
$136, "2 - COMPOSITE.": PR INTQ168, 
"3 - A MIXTURE." 

480 PRINT«256,STRIN0S(3, 12e>t M pl 
ease"+CS+" type"+CS+"a"*CS4"numbe 
r"+CS;:POKE1304,40:POKE1305,49:P 
OKB1306,45:POKE1307,51:POKE1308. 
41:PRl»T9285, STRINGS (3, 128); 
490 INS=INKEYS 

500 INS=1NKEYS:IF IHS="" THEN500 
ELSE IF ASC(INS)<49 OR ASC(IHS) 
>51 THEN500 
510 R-VALUNS) 

519 REM***H0V MANY ON SCREEN**** 

520 PKINT$384,"HOV MANY NUMBERS 
WOULD YOU LIKE OB THE SCREEN AT 
ONCE?" :PRIBT(H80, STRINGS (3, 128)" 
please" CS"type"CS ,, a"CS"number"CS 
; : PQKE1528.40: PQKE1529.52: POKB15 
30,45:POKE1531,54:POKE1532 ( 4L:PO 
KE1533,32:P0KE1534,32:POKEl535.3 
2 

530 IHSMNKEY* 

540 IKS=INKEYS:IF INS="" THEN540 
ELSE IF ASC(IN$)<52 OR ASC(IHS) 



>54 THEN540 

550 HH=VAL(IHS) 

559 REM***GET THE USER'S HARE*** 

500 BV=Q;CL3;F0RX--1TQ TL;XS=STSS 

(X>:IF X>9 THEN XS=R1GHTS(XS.2) 

570 PRINTXS;".";N8<X), : NEXTX: ISP 

UT'TYPE NUMBER IN FRONT OF HAKK 

THEN PRESS ENTER— >";NS 
580 K-VAL(N$>;IF K<1 OR K>TL THE 
NCLS:GOTO560 
590 G03UB1350:CLS 
600 IF R=3 THEN R1=RND<2) ELSE R 
1=R 
610 PCLS:SCREEN1,1 

619 REK****PICK THE NUMBERS***** 

620 ON H GOTQ630, 640, 650, 660.670 
,080.090,700,710 

630 Rl=8:N2=10:GOTO720 

640 Nm0:N2=18:GOTO720 

650 Nl=12:N2=26:GOTO720 

660 Hl=15:N2=33:GOTO720 

670 N1=17:N2=41:GOT0720 

600 NU19:N2 = 49:GOT0720 

690 Nl=22:N2=56:GQTO720 

700 N1=24:N2=64;GOT0720 

710 N1=25;N2=73 

720 B=RND(HK) 

730 IF Rl=2 THEN810 

740 F0RX=110 HM 

750 C=RSD(B2):C(X>=CN(C):IF X=l 

THEN790 

760 F0RZ=X-1 T01STEP-1 

770 IF C'X)=C(Z> THEN 2=1:NEXTZ: 

GOT0750 

780 NEXTZ 

790 NEXTX 

800 C=RND(Bl):C(B)=PH(C>:GOTO880 

810 FORX^ITO HM 

820 C=RHD(N1):C(X)=PN(C):IF X=l 

THEN860 

830 F0R2=X-1 T01STEP-1 

840 IF CCX)=C(Z) THEH Z'\: NEXTZ; 

GOTO820 

850 NEXTZ 

860 NEXTX 

870 C=RHD(I2>:C(B>=CN(C> 

879 REM******SET UP SCREEN****** 

680 PCLS;Y2=0;PCOPY3TO2 

890 DRA.V ,, C8":L1NE(0.0>-(255.14) ( 

PSET.BF:IF Rl=l THEN C2S="PRIME" 

:X1=47 ELSE C2S="C0MPOSITE" :X1=2 

3 

900 Y1^-12:C1=5:CS="PICK THE "+C2 

S:GOSUB170 

910 Y1-35:F0RX=1T0 HH 

920 IF HM=4 THEN Xl= (X-l)*56+33 

ELSE IF HM-5 THEH Xl=<X-l)*46+25 
ELSE Xl=()t-1)*42+14 

930 CSCX)=STRS<CCX)):CS(X>=RIGHr 

SCCS(X>,LE!TCCS(X>)-1):CS=CS(X):D 

RAV"C6*':LISE(Xl-5.21)-(Xl+24.39) 

,PSET,B:IF LEN(Cft(X))=l THEHX1=X 

1+-6 

940 C1=8:COSUB170: NEXTX 

950 IF HH=* THEN P-39 ELSE IF HK 

=5 THEN P=31 ELSE P=20 

960 F0RX=irO HM:D(X)=0: NEXTX: H=0 

:B1=1 

970 PUT(P.40>-(P410.60),AR,PSET 

979 REHmmGET AN ANSWER****** 

980 INS=INKEYS 

990 INS=INKEYS: IF INS="" THENDRA 
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V"C5BH212,118;XCH4U0); ,, :PLAYP2$ 

:DRAtf"C6BM212/ll8;XCH$<40>;":PLA 

YP2S:GOTO990 

1000 IF IHS="H" THEM GOSUB290:GO 

T0990 

1010 IF IH$=CHRI<8> OR INS=CHR*< 

9) OR IHS=CHRJ(13> THEH PUT (P, 40 

)-<P+10,60>.AQ,PSET ELSE990 

1020 IF INJ^CHRSCQ) THEH1060 ELS 

E IF IIS=CHRSU3) THENUOO 

1030 IF HK=4 AHD P=<39 THEH1090 

ELSE IF HH=4 THEH P=P-56: B1=B1-1 

:GOTO1090 

1040 IF HM=5 AHD P=<31 THEH1090 

ELSE IF HM=5 THE* P=P-46: Sl-81-1 

;G0TO1090 

1050 IF HH=6 AHD P=<20 THEH 1090 

ELSE P=P-42;Bl=Bl-l:GOTO1090 

1060 IF HM=4 AHD P=>2Q7 THEH1090 

ELSE IF HM=4 THEHP=P+56:B1=B1+1 
:GOTO109O 
1070 IF HH=5 AHD P=>215 THEH1090 

ELSE IF HM=5 THENP=P+-46: B1=B1 + 1 
:GOTOlO90 
1QG0 IF 11K-6 AND P=>23C THEH109Q 

ELSEP=P+42:B1=B1U 
1090 PUT(P,40)-<Ptl0.6C>,AR,PSET 
: GOTO990 

1099 REM** DEVALUATE ASSVER***** 

1100 IF HJM THEH Pl= <Bl-l>*56+3 
3 ELSE IF HK=5 THEH P1=(B1-1)*46 
+25 ELSE P1=CB1-1)*42*14 

1110 IF BlOB THEH1170 

1120 FORX=1T011:GET(P1-5.21)-(P1 

+24.39),CA,0:PUT<Pl-5 t 21)-<Pl+24 

,39>.CA,H0T:HEITX 

1130 Xl=0:Yl=75:Y2=14:Cl=8:Ct=RA 

*<RHD<4>>+". "+C*<B)+" HAS ":IF 

Rl=l THEHC$=CS+"OHLY 2 FACTORS." 

ELSE IF Rl=2 THEH CS=CS+"KORE T 
HAH 2 FACTORS." 
1140 GOSU8170 

1150 PLAYF1J:F0RX=4T08:PC0PYX TO 
2 ; F0RY=1TG30; NEXTY: HEXIX; PC0PY3 
T02: F0RX=lTO1000 : HEXTX: PCLS 
1160 HU=NUU: IF NU=10 THEH HU=0: 
GGT01210 ELSE600 
1170 GET*P1-5,21>-<P1+24,39>,CA, 
G:PUT(P1-5,21)-(PH24,39) 1 CA ( H0T 

1180 NV=SV+1:X1=0:Y1=65:Y2=14:C1 

=8:C$="SORRY. "+Ct(Bl>+" HAS": IF 

Rl = l THEH C$=Ct+" KORE THAH TVO 

FACTORS." ELSE IF Rl=2 THEH C$= 

C*+" OHLY TVO FACTORS " 

1190 GQSUBL70:PLAYP3S:LIBE<0,51) 

- (255, 95) , PRESET, BF: Yl=75: C$="TR 

* THAT AGALN PLEASE." :G0SUB17Q: F 

ORX^ITOIOOO: HEXTX: LIH£<0,60>~<25 

5, 78), PRESET, BF 

1200 PUT(P1-5 I 21)-(P1424.39),CA, 

PSET:GOTG970 

1209 REM**********DQES THIS USER 
HEED HELP******** 

1210 !F HV>3 AHD R-l ?HEB MIDS<R 
%< K) , 1 , 1 ) =" *" : TT < 1 ) =TT ( 1 ) * 1 ELSE 

IF HV>3 ABD R=2 THE? MID*<R*<K) 
,2,D="*":TTC2>=TT<2) + 1 ELSE IF 
HV>3 AHD R=3 THEH HIDS(R$<K) ,3, 1 
3="*":TTC3)=TT(31+1 

1219 REK*****GET NEXT USER****** 

1220 PCLS;X1=0:Y1=101 Y2=14;C1=8 



:C*="JJEXT PLAYER. PRESS <EHTER>. 

":GOSUB170:C1=7:C*="<B> TO EHD." 

:GOSUB170!lHS=IBKEYt 

1230 IH£=IBKEYS: IF IH»="" THEH12 

30 

1240 IF IH*-CHR*U3> THEH56C ELS 

E IF IHS="E" THEH1250 ELSE1230 

1250 FQRZU1TQ3 

1260 IF TT<Z1> = THEH C$="BO-OHE 
HEEDS HELP IH " ELSE IF TT<Z1> = 

1 THEH C$="THIS STUDEHT HEEDS HE 

LP IH " ELSE CS=" THESE STUDEHTS 

HEED HELP IH " 

1270 IF Zl=l THEH C2S="PRIHE HUM 

BERS." ELSE IF Zl=2 THEH C2$="CQ 

HPOSITE HUKBERS." ELSE C2$="B0TH 
PR IKE ABD COMPOSITE HUHBERS." 

1280 L=31:C*=C*+C2»:SC=l:GOSUB17 

0: IF TT<Z1)=0 THEH G0SUB270:GOT0 

1320 

1290 X=0:FORZ=1TO TL: IF KID$(RS( 

Z> , Zl , 1>="*" THENPRI HTHS (Z ) : X=X+ 

1 

1300 IF XOO AHD X/10=IHT(X/10) 

THEH GCSUB270:CLS 

1310 HEXTZ:PRIHT"THERE ARE BO MO 

RE NAMES. ":GOSUB270 

1320 CLS:HEXTZ1 

1330 CLS:PRIHT"<R>UH AGAIK OR <H 

>HD?":PRIHT:PRIHT"PLEASE TYPE <R 

> OR <E>.":IH*=IHKEY» 

1340 IH*=IHKEY*;IF IH*="R" THEH 

RUH ELSE IF IH1<>"E" THES1340 

1350 CLS:EHD 

1059 REH******EXPLAHAT10H******* 

1360 IF R=2 THEH140O ELSE IF R^3 

THEHG0SUB1370: GOSUB1400: RETURH 

1370 CLS:PRIHT"PRIKE HUKBERS HAV 

E OHLY TVO FACTORS. FOR EXAM 

PLE, 5 IS A PRIHE HUMBER BECA 

USE ITS ONLY FACTORS ARE 5 AHD 
I. "1380 PRIHT:PRirrZERO AHD OH 
E ARE HOT PRIME HUKBERS BEC 

AUSE THEY DO HOT HAVE2 FACTORS. 
1390 PRIHT:PRIRT"THE PRIME NUKBE 
RS LESS THAH 20 ARE :-":PRlHT"2 
, 3, 5, 7, 11, 13, 17 AHD 19":GO 
SUB270: RETURH 
1400 CIS: PRINT" COMPOSITE HUKBERS 

HAVE KORE THAHTVO FACTORS. FOR 
EXAMPLE, 8 HAS 1, 2, 4 OD 6 AS 
FACTORS. THEREFORE, 8 IS A 

COMPOSITE HUHBER." 

1410 PRINT: FRIST'THE COMPOSITE H 
UKBERS LESS THAH 20 ARE:-": PR INT 
:PRINT"4, 6, 8, 9, 10 ( 12, 14, 1 
5, 16 AHD 18. ";GOSUB270: RETURH 

1419 REH*****PRIKE HUHBERS****** 

1420 DATA2,3,5,7,11,13,17 I 19,23 1 
29.31.37,41,43,47,53,59,61,67,71 
,73,79,83,89.97 

1429 BEM****COMPOSITE HUKBERS*** 

1430 DATA4,6,8,9, 10. 12, 14, 15, 16. 
18,20,21,22,24.25.26,27.28,301,32 
.33,34,35,36,38,39, 40. 42, 4< , 45, 4 
0,48,49.50,51,52,54,55,56,57.58, 
60,62,63,64.65,66,68.69.70,72 
1440 DATA74, 75, 76, 77, 78, 80.81,82 
.94,85,86,87.88,90,91.92,93,94,9 
5,96.98,99 

1449 REK*m*CHARACTER DATA***** 



1450 DATABR2.BR2UBU2U2BRBD5.BU5H 

DBR3DBD4 . BRUHLU3HLHURHUHRD3»LHRD 

BR.BRUHLREHL2URNUR2BD4.BR3NUBL3U 

E3UBL3DBD4BE3.BRHEHF2HEFGBD2REBD 

, BU5BRRDCBD3BR2, &R2HU3EBRBD5, BRE 

U3HDD5BE2, BnBUE3DD3NII3BDDR, QU3BR 

2DHLHRDBDBR 

1460 DATABRUHRDRHUDGBU2BR2.BRBU2 

R2BD2, BRRULDBR2, BUBRRBU2HL3HR2BU 

2LBD5BR3 , BRHU3ERFD3GLBR2 , R2U5HLD 

5R 

1470 DATA HR3UEREU2LLGBD4BR3.BUF 

REUHNLEUL3BD5BR3.BR3U5D3L3UE2RBD 

5, BUFREVHL2U2R3BD5, BUHUFREUHLGU2 

ERBD5BR, BU40R3D2G3BR3, BURUFREUHL 

NGHERFGBD3BR, BRREU3HLGDFREBD3.BR 

2UBU2UBD4BR 

14&0 DATABR2URD2GBU5URDLBD3BR,BR 

2H2UE2BD5BR,BRBUNR2BU2R2BD3, BRE2 

UH2BD5BR2, BR2UBUUREHL2BD5BR3, , U2 

HR3U2ERFD4 

1490 DATA U3IR2U2R2FGFDGL2BR3.BU 

U3ERFBD3GLHBDBR3, U5RF2DG2LBR3.IE 

3U3NR2U2R3BD5, U3HR2U2R3BD5, BUU3E 

RBRBD3HLDGLHBDBR3. U3HU2R3HU2D3 . B 

RU5BD5BR2, BUFEU4BRL2BD5BE3, U5D2E 

E2G2F2D. HU5R3, U5F2HDE2D5, U5F3U3D 

5 

1500 DATABRHU3ERFD3GLBR2.U5R2FDG 

L2BD2BR3, BUU3ERFD3HHNFGLHBDBR3. 

5R2FGL2F3, BUFREUHL2UERFBD4 

1510 DATA BRU5LR3BD5.HU5R3U5BD5, 

BU5D3FDRUEU3BD5, HU5E2HUF2HU5, UE2 

H2BR3DGFD2.BU5D2FSD2HLU2EU2BD5.H 

R3UE3UL3BD5BR3 

1519 REH******CLASS HAKES****** 

1520 DATARCH B, DAVID C.VARV1CK C 
.DARREH C, GRAHAM D, MICHAEL F.BEH 

H.MARK H.SCOTT H.JOEL H.JOSEPH 
L.VILLIAK L.DAKIEH Kc.CREG Kc.PA 
UL Hc.DAMOH M, MICHAEL KAT.KEH M, 
MICHAEL KUL.LUKE H.HARK F.STEPHS 
N R.SHAVH P.ANTHOHY S, BRADLEY S, 
GRANT S.KIHBERLY V.S1KOH 



Listing Two 



1 REM*************************** 

2 REM*PRIHE AHD COMPOSITE * 

3 REM* HUKBERS * FOR * 

4 REM* BY *COCO 1 ft 2 * 

5 REM* BOB HORHE * VERSIOH 2 * 

6 REM*************************** 

7 G0T09 

8 SAVE"309BA:3":EHD'2 

9 IF PEEK(18B>=8 THEH P0KE248.50 
:POKE249,98:POKE250.2a:POKE251.1 
75:POKE252 r 126:POKE253. 173: P0KE2 
54 , 165: POKE4 10, 126: POKE411, 0: PQK 
E412,248:REKt***DISABLE <BREAK> 
KEY***************************** 
10 PCLEAReiCLEARGOOiDlKCt.VS.CHS 
(58>,PK<25),CH<73),CA<8),AR(4),A 
Q<4),D(6),C<6),C$<e> 

20 CLS:PRINT«194,"PRIKE AHD COHP 
OSITE BUKBERS.":PRIHT«270,"BY":P 
R1NT©330,"BOB HORHE." :SCREEH0. 1 
30 F0RX=1T025:READPH(X): HEXTX: FO 
RX=lT073;READCHa): HEXTX 
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40 FORZ=0TO58:READCHS'Z):NEXTZ 
50 PS="L16T16P16" : P1S="T12L4V150 
3CEG04L2C03L4G04L2C" : P2S="L8T6P8 
";P3S="T12L402V15CFDEGABGFDECGAD 
FEGCFDEGADCGEFL1C'*:A=FSD (-TIMER) 
60 RAS C 1 ) ="GREAT" I RAS \2 ) ="GQQD" i 

RAS C3 > =" TOPS" : RASM > =" YEAHHH" ! CO 

L0R5. 8: PMODE1, 1: PCLS: DRAVS4BH5. 

20U20NG5F5 ,, :CET<0.0)-<10,20>.AR, 

G:PCLS:GET<0,0>-UO,20>,AQ.G 

70 L=22:Y2=0:S-8 

60 C1S="C8R8U2R8D2R8U4R16D4R8U2R 

6D2R8D3L8D2L8U2L8D4L16U4LBD2L8U2 

L8U3" : GOSUB150 : FC0PY2T03 : DRAW'S* 

BM95,165"+CU: PAINT <97, 166) :LINB 

U22. 165)- (131. 168). PRESET, BF:GO 

SUB150:PCOFY2T04 

90 CLS:PRIHT<5261,"JUSr A KOMENT 

PLEASE. ":SCREEN0,1 

100 PCLS:DSAW'S8BK63,163 ,, +C1«: PA 

INT (65, 165): LIRE (119, 163) -(134,1 

70) t PRESET , BF: GOSUB150: PCOPY2T05 

110 PCLS;DRAW'S12BM31,161"*C1S;P 

AIHT (32, 162): LI NEC 11 4, 161)- (139, 

173) , PRESET, BF: G0SUB150: PC0PY2T0 

6 

120 PCLS: DRAW'S 16BH0, 162" +C1S: PA 

[BT(2,164):LINEU10, 160)- (145, 17 

6) , PRESET, BF.GOSUB150: PCOPY2T07 

130 FCLS:C1S="C8U2R6B2R8U4R16D4R 

£U2R8D7L8U2L8D2L16U2L8D2L8U2L&U3 

":DRAV'S21BM0,164"+C1S:PAIBT(2,1 

66):LINE(103 ( 161)-(146,191),PRES 

ET,BF:GOSUB150: PCOPY2T08 

140 GOT0400 

149 REH****VINIX)VS OF S-SHiP**** 

150 DRAWC7S4BM0, 133X30, 143R195X 
255, 133NL255BK225. H3D43HR30L195 
NU43L30":PAINTC35,135>,7,7:PAIBT 
r2,189),7 r 7:LlBE(0,lC3)-C255,125 

>,PSET,B 

160 Xl=2:Yl=lia:Cl=6:C$="KEYS 

,":G0SUB170:X1=140:C»="EBTER 
, HELP" : GOSUB170 : DRAW C6BH57 , 1 13N 
E3ffF3R8BRnReflH3WG3": RETURN 

169 REM***DIVIDE UP TO PRINT**** 

170 IF LEH(C$X=L THEBVS=CS:GOSU 
B210:RETURH 

180 FORT=L T01STEP-1:IF M1DSCCS, 

T,l)=" "THEH20O 

190 NEXTT 

200 VS=LEFTS(CS,T>:G0SUB210:CS=R 

IGHTS(CS, <LEB(CS)>-T>:GOT0170 

209 REH***TO GRAPHICS SCREES*** 

210 DRAW'S=S:C=Cl;BM"+STR*m >+" 
."♦STRS(Y1> 

220 FORI=TTOLEH(VS> 

230 F=ASC(MIDS(VS, l,l>)-32 

240 DRAVCHS(F)+"BR3" 

250 FEXTI:Y1*YHY2: RETURN 

259 REK***GET BEV PAGE (TEXT)*** 

260 PRINT*5484, "PRESS <EBTER> TO 
COBTINUE.";:lH*=IHKEYS 

270 IBS=1BKEY$: IF 1NSOCHRSU3) 
THEB27G ELSE RETUR1T 

279 REK*****HELP ASKED FOR****** 

280 FUT(P,40)-<P*10',6Q>, AQ.PSET; 
IF H<HM-1 THEB31G 

290 IF Rl = l THEB CS="PFIRE":C2$* 
"OBLY TVO FACTORS." ELSE CS="COM 
FGSITE":C2S="K0RE THAN TVO FACTO 



RS." 

300 CS=CS+" BUKBERS HAVE "*C2S:X 

1=0:Y1=65:C1=7:GOSUB170:FORX=1TO 

150O:NEXTX:LIHE(0,50)-(255,95),P 

RESET.BF; PUT(P, 40>- <P+lO,60> , AR, 

PSET:F0RX=1T0 HM: DU)=0; NEXTX:H= 

0: RETURN 

310 H=H+1 

320 D-RND(HK):IF D^B THER320 

330 IF DCD)=1 THEH320 ELSE D<D)= 

1 

340 A=0:FORX=\TO C<D) 

350 IF C<D)/X=INT(C(D)/X> THEB A 

=A+1 

360 BEXTX 

370 AS=STRS(A5:X1=0:Y1=65:C1=7:Y 

2=14:CS=C$(D>+" HAS"+AS+" FACTOR 

S.";GOSUB170 

380 FORX=IT01500: BEXTX 

390 HBE<0,50)-<255, 95). PRESET, B 

F:PUT(P,40)-<P+10,60>.AR,PSET:RE 

TURB 

399 REM*****CHOOSE A LEVEL*"*** 

400 CS=CHRS(128>:CLS:PRIB1@0,STR 
I BG3 (5 . 128 ) +" please" +CS +" choose" 
+C»+"a , MC*V* level" tSTRIHCS(6, 128 
); 

410 F0RX=1T09:PRIBT«X*32+37,STR* 
CX)+ M - SUHBERS TQ"X*10+9; : BEXTX 
420 PRlBT<9416,STRIBGS(3,lc8)*"pl 
ease"+CS+"type , '+CS+"a"-»CS4"nunibe 
r"+CS;:POKE1464,40:POKE1465.49:P 
0KEH66,45:POKE1467,57:P0KEU68. 
41: PR1RTG445, STRINGS (3, 128); 
430 INS=IBKBYS 

440 IBS=INKEYS:IF IB$="" THEB440 
ELSEIF ASCUNSX49 OR ASC(tNS)> 
57 THEB440 

449 PEH*******VHICH K1ID?******* 

450 B=VAL(1NS>:CLS:PRI»T<$0,STRIB 
G* C6, 128) +"pl ease" ♦CS+"cboase" +C 
S+ ,, a"+Cf.»"type ,, +STRINGS(6, 128); 
460 PRIHT*104,"1 - PRIME.": PRINT 
5136. "2 - COMPOSITE. " : PRISTG168, 
"3 - A MIXTURE," 

470 PR I HT9256 . STR I BGS (3 , 128 > ♦" pi 
ease" +CS+" type" +Ct +" a" +CS+" nuobe 
r"+CJ; : POKE1304, 40: POKE1305, 49: P 
OKE1306,45:POKE1307,51rPOKE1308, 
41: PRIBT®285, STRINGS (3, 123); 
480 !NS=1BKEY$ 

490 INS=INKEYS: IF «$*»" rHER490 
ELSE IF ASC<IBS)<49 OR ASC(IHS) 
>51 THEN490 
500 R=VAL(IN»> 

509 REM***HOV MABY ON SCREEH**** 

510 ?R1NT«384,"H0V MANY NUMBERS 
VOl'LD YOU LIKE OK THE SCREEH AT 
ONCE?" :PR1BTQ480, STRINGS (3, 128)" 
please ,, CS , 'type"CS"a"CS"number M CS 
; : P0KE1528, 40: FOKE1529 ,52: POKB15 
30,45:POKE1531,54;POKE1532,41:P0 
KE1533,32:POKE1534.32:FOKE1535.3 
2 

520 1HS=1BKEYS 

530 1NS=IBKEYS: IF IB$="" THEB530 
ELSE IF ASC(IB$)<52 OR ASG(IBS) 
>54 THEB530 
540 HM=VAL(IN$) 
550 GOSUB1200:CLS 
560 IF R=3 THEB R1=RND(2: ELSE R 



1=R 

57 PCLS:SCREEB1. 1 

579 REM****PICK THE NUMBERS***** 

580 OB B G0TO590. 600.610,620, 630 
,640, 650, 660, 670 

590 N1=8:N2=10:GOTQ680 

6f>0 Nl=10;H2 = 18:GOTO0a0 

610 Nl=12:R2=26:GOT06&e 

620 N1=15: 82=33: GOTO680 

630 Hl=17:N2-41:GOTO680 

640 Sl=19:.Y2=49:GOTO680 

650 Bl=22:M2^56:GOTO680 

660 Nl=24;S2=64;GOTO680 

670 N1--25:H2=73 

680 B=RBD(HM) 

690 IF Rl=2 THEN770 

700 FORX=1TO HM 

710 C=RND(B2):C(X)=CB<C): IF X=l 

THEB750 

720 FORZ=X-l T01STEP-1 

730 IF C(X)=C(Z) THEB Z=1:UEXT2: 

GOT071O 

740 BEXTZ 

750 BEXTX 

760 C=RBD(Nl):C(B)=Pfl(C):GOTO640 

770 F0RX=1T0 H« 

780 C=RND(B1):C(X)=PB(C): IF X=l 

THEB820 

790 FORZ=X-l T01STEP-1 

800 IF C(X)=C(Z> THEK 2=1: BEXTZ: 

GOTO780 

810 BEXTZ 

820 BEXTX 

630 C=RND:B2):C(B>=CH(C> 

639 REH******SET UP SCREEH****** 

640 PCLS:T2=0:PCOPY3T02 

&50 DRAWC&" : LI HE(0, 0)- (255, 14) , 

PSET,BF:IF Rl-1 THEB C2S="PRIKE" 

:X1=47 ELSE C2S="C0HP0SITE": Xl=2 

3 

860 Y1=12:C1=5:CS="PICK THE "+C2 

8:G0SUB1?5 

870 Y1=35:F0PX=1T0 HM 

880 IF HM=4 THEB Xl=<X-l)*56+33 

ELSE IF HM=5 THEB Xl=(X-l)*46+25 

ELSE Xl = a-1)*42+14 
890 C*(X)=STRS(CCX)):CS(X)=RICHT 
$ <CS (X) . LEH (C$ (X) >-l ) : CS=CS (X) ; D 
RAW*C6":LI»Eai-5.21)-(XU24 ( 39) 

,PSET,B:IF LEN (CS<X> )=1THEI X1=X 

1+6 

900 C 1=8 :GOSUB170: BEXTX 

910 IF HM=4 THEB P=39 ELSE IF HM 

>5 THEB P-31 ELSE P"20 

920 F0RX=1T0 HK: D(X> =0: NEXTX: H=0 

:B1 = 1 

930 PUT<P,40)-(P+10,60),AR,PSET 

939 REH******GET AN AHSVER****** 

940 IH$=INKEY» 

950 INS=INKEY$: IF IH$="" THENDRA 
W , C5BH213,118;XCHS(40);";PLAYP2S 
:DRAV"C6BM212 1 L18;XCHS(40>;":PLA 
YP2S: G0T0950 

960 IF I*S="H" THEN GOSUB280:G0T 
0950 

970 IF IH»=CHRS(8> OR IB*=CHR*(9 
) OR IBS=CHRS(13) THEB PUT(P,40) 
-(P+t0.60>,AQ,PSET ELSE950 
980 IF IB£-CHRS(9> THEB1020 ELSE 
IF IBS=CHRS(13) THEN1060 
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990 IF HUM AND P=<39 THER1050 E 

LSE IF HH=4 THEM P=P-56: Bl=Bl-l: 

GOT01050 

1000 IF HK=5 AHD P=<31 THEH1O50 

ELSE IF HK=5 THEH P=P-46:B1=B1-1 

:GOT0105O 

1010 IF HH=6 ADD P=<20 THEH1050 

ELSE P=P-42:Bl=Bl-l:GOTO1050 

1020 IF HK=4 AHD P=>207 THBI1050 

ELSE IF HM=4 THEN P=P+56: B1=B1+ 
1: GOTO 1050 
1030 IF HS=5 AHD P=>215 7HEH1050 

ELSE IF HK=5 THEN P=P+46; B1=B1+ 
l:GOTO1050 
1040 IF HM=6 AHD P=>230 THEH1050 

ELSE P=P+42;B1=B1+1 
1050 rUT<r,40J-<F+10,60).AR,FSET 
:GOT0950 

1059 REK****EVALUATE AHSVER***** 

1060 IF KM=4 THEM Pl=(Bl-l)*56+3 
3 ELSE IF HM=5 THEH P1=(31-1J*46 
+25 ELSE P1=<B1-1)*42+14 

1070 IF BlOB THEBU30 

1080 F0RX=1T0U:GBT<P1-5,21>-<P1 

t24,39),CA,G:PUT(Pl-S,21)-<Pl+24 

.39>.CA,HOT:n£XTX 

1090 X1=0:YU75:Y2 = 14:C1=8:C$=RA 

i(R»D(4))+". "+C$<B)+" HAS":IF 

Rl=l THE»C*=C*+"OHLY 2 FACTORS." 

ELSE IF Rl=2 THEH Ct=C*+"MORE T 
HAH 2 FACTORS." 
1100 G0SUB170 

1110 PLAYP14:FORX=4T08:PCOPYX TO 
2; FORY=iTO30: REXTY: HEXTX: PCOPY3 
T02: FORX=lTO1000: SEXTX; FCLS 
1120 IlMTO+t: IF HU=10 TKEH Hu"=0: 
GOTO1170 ELSH560 
1130 GET(P1-5,21)-(P1+24,39> 1 CA, 
G:PUT(P1-5,21)-(P1+24.39),CA ) H0T 

1140 X1=0:Y1=65:Y2=14:C1=8:C*="S 
ORPY. ,, +-CS<Bl)+" HAS": IF Rl=l TH 
EH Ct-C*+" MORE THAH TVO FACTORS 

." ELSE IF Rl=2 THEH C*=C»+" OHL 

Y TVO FACTORS " 

1150 GOSUB170:FLAYP3$:L1HE(0,51) 
- (255, 95) , PRESET, BF: Yl=*5: C»="TR 

Y THAT AGAIN PLEASE. " :G0SUB170: F 
ORX=1T01000:HEXTX: LINE 0,60)- (25 

5.78), PRESET. BF 

1160 PUT(P1-5,21)-(P1+24,39),CA, 

PSST:GOTO930 

1169 REM*****GET HEXT USER****** 

1170 PCLS:X1=0:Y1=101: Y2=14:C1=8 
:CS="HEXT PLAYER. PRESS <ENTER>. 
":GOSUB170:C1=7:C$="<E> TO EBD." 
;G0SUB170;IH$=IHKEY» 

1LS0 I5S=INKEY»:1F IHS="" THEH11 

80 

1190 IF IN$=CHR*C13) THEH550 ELS 

B IF II*="E" THEHCLS:EBD ELSE118 



1199 REK******EXFLAHAT10H******* 

1200 IF R=2 THEN1240 ELSE IF R=3 
THEHGOSUB1210:GOSUB1240: KHTURH 

1210 CLS: PR INT" PR I HE WUMBERS HAV 
E OHLY TVO FACTORS. FOR EXAK 

PLE, 5 IS A PRIHE HUHBER BECA 

USE ITS OHLY FACTORS ARE 5 AHD 

1." 
1220 PRlHT:PRIHrZBRO AND OHE 

ARE HOT PRIHE HUHBERS BEC 

ATJSE THEY DO HOT HAVE2 FACTORS. 



1230 PRIHT:PRIHT"THE PRIKE HURBE 

RS LESS THAH 20 ARE :-":PRlHT"2 

, 3, 5, 7, 11. 13, IV AND 19";GO 

SUB260:RETURH 

1240 CLS: PR I HT" COMPOSITE NUHBERS 

HAVE MORE THAHTWO FACTORS. FOR 
EXAHPLE, 8 HAS 1, 2, 4 AHD 8 AS 
FACTORS. THEREFORE. 8 IS A 

COMPOSITE NUMBER." 

1250 PRUT: PR I NT" THE COMPOSITE B 
UMBERS LESS THAH 20 ARE:-": PRIST 
:PRIHT"4. 6. 8. 9, 10, 12. 14, 1 
5. 16 AXD 18. ":GOSUB260; RETURN 

1259 REHt****PRlKE NUMBERS****** 

1260 DATA2.3.5.7.11.13.17.19.23, 
29,31,37,41,43,47,53.59.61.67.71 
,73,79,83,89,97 

1269 REH****COWPOSITE NUMBERS*** 

1270 DATA4. 6. 8.9. 10.12. 14. 15,16. 
16,20,21.22.24,25,26.27.28.30.32 
,33,34.35,36,38,39,40.42,44,45. 4 
6.48,49.50.51,52,54,55,56,57,58, 
60 . 62 . 63, 64 . 65 . 66 , 68 . 69, 70 , 72 
1280 DATA74.75.76,77,78,80,81,&2 
, 04 . 85 , 86 . 87 , 88 , 00 . 91 . 02 , 03 , 04 , 9 
5,96,98,99 

1289 REMmttCHARACTBR DATA***** 

1290 DATABR2.BR2UBU2U2BRBD5.BU5H 
DBR3DBD4.BRUNLU3NLHURNUNRD3NLNRD 
BR,BKUNLREHL2URNUR2BD4.BR3NUBL3tJ 
E3UBL3DBD4BR3.BRHENF2HEFGBD2EEBD 
, BU5BRREOBD3BRZ. BR2HU3EBRBD5 ( BRE 



U3HBD5BR2. BRBUE3BD3HH3BDBR. BU3BR 

2DNLNRDBDBR 

1300 DATABRUHRDRHUDGBU2BS2.BRBU2 

R2BD2, BRRULDBR2, BUBRRBU2BL3HR2BU 

2LBD5BR3. BRHU3ERFD3GLBR2, R2U5BLD 

5R 

1310 DATA NR3UEREU2LLGBD4BR3.BUF 

REUHBLEUL3BD5BR3.BR3U5D3L3UE2RBD 

5. BUFFEUHL2U2R3BD5. BUNUFREUHLGU2 

ERBD5BR, BV4UP3D2G3BR3, BUHUFREUHL 

NGHERFGBD3BR,BRREU3HLGDFREBD3,BR 

2UBU2UBD4BR 

1320 DATABR2URD2GBU5URDLBD3BR.BR 

2H2UE2BD5BR, ERBUHR2BU2R2BD3. BRE2 

UH2BD5BR2.BR2UBUUREHL2BD5BR3, ,U2 

HR3U2ERFD4 

1330 DATA U3RR2U2R2FGFDGL2BR3 , BU 

U3ERFBD3GLHBDBR3,U5RF2DG2LBR3,IR 

3U3HR2U2R3BDe,U3NR2U2R3BD5, BUU3E 

RBRBD3NLDGLHBDBR3. U3HU2R3NU2D3, B 

RU5BD5BR2 , BUFEU4NRL2BD5BR3. U5D2R 

E2G2F2D. NU5R3, U5F2HDE2D5 . U5F3U3D 

5 

1340 DATABRHU3ERFD3GLBR2.U5R2FDG 

L2BD2BR3. BUU3ERFD3NHHFCLHBDBR3. U 

5R2FGL2F3 . BUFREUHL2UERFBD4 

1350 DATA BRU5LR3BD5.HU5R3U5BD5. 

BU5D3FDRUEU3BD5. NU^E2HUF2HU5. UE2 

H2BR3DGFD2,BU5D2FRD2NLU2EU2BD5,H 

R3UE3UL3BD5BR3 
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FOR THE GAMERS' 



For those of you who are 
ripping your hair out trying to 
get past the gargoyle Id Raaka 
Tu: 

Once you have gone through the 
door next to the statue with the 
bow. If you rear* thp fteECT iption 
carefully, It will say that you 
are at the SOUTH END of a hall. 
Therefore, It must have a north 
end. After getting the candle 
the lamp, go to the roon with 
the gargoyle, light the candle 
with the lamp, activate the 
gargoyle, drop the candle, leave 
the room and type VAIT ten C10) 
times. then return to the room 
and extinguish the candle. 



If you can get to the chasm 
with the stream of Lava In 
Trekboer, don't worry about the 
grating; you can't open it. The 
Rrate gets used, on your way out. 
Also don't try crossing the 
bridge without the amulet. 



For Bedlam: If you keep 
walking Into walls, type PLUGH 

and you 1 11 feel much better! 



In Temple of Ron. Any 
treasures taken while the bat is 
on the screen Rives double 
points. 



* 



For Black Sanctum, you'll 
find yourself in big trouble if 
you try to ro in the nonastery 
(via mirror) and don't have the 
robe. If trapped In the roon 
where you can't do anything, the 
words on the note that the young 
woman is holding can get you 
free. 



For Trekboer: HEVER drop the 
beaker. If YOU want to put it 
duwn, you inu*t have the pillow 
aiid then drop the pillow, and 
then the beaker. 



In Shenanigans, You can't get 
service In the bar without your 
shoes and shirt. And be sure to 
check your mall everyday. Your 
mailbox nunber should be the 
same as your door number. 
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THIS SHORT tutorial, ideal 
for the earlier Hish 
School years, helps with 
the understanding of straight 
line graphs. The aspect dealt 
with this tine is the all - 
inportant slope of the Rraph, a 
key el-aoent In really conln« to 
Rrips with what jrrapbs are all 
about. 

This leads on, in higher 
mathematics, to the rate of 
ctange of slope in Calculus. 

But first let's *et a clear 
understanalns; of straiflbt-li-ne 
graphs . . . 



The Listing: 



1 •*#*?.m**GRAFHTUm***tt-m** 
******BY HAL HCLAUCHLAH********* 

*****ll HUHTER ST..BO0NAH Q***** 

**********JUNE, 1987************* 

2 GOTO 10 

3 SAVE"265:3":E»D'2 

4 **t*A TUTORIAL FOR JUNIOR***** 
******HIGH SCHOOL CLASSES******* 
*****#strai«ht line xraphs****** 
10 CLS 

20 PKINTG5, "STRAIGHT-LINE C .PES 
";:PRn?Ti?64,"THIS FRQGRAH ' OVS 
HOV THE GRAPHOF Y=X VARIEi AS TH 
E COEFFICIENTOF X VARIES. 

IT IS THISCOEFFICIEBT THAT D 
ETERMENES THEslope OF THE GRAPH. 

Hi 

30 PRINTi?235, "examples": PR INTO 25 

8, "equation Rraph slope 

ii 

40 PRIBT(S291,"Y=2X 

2:1 Y=5X 

5:1 Y=3X+2 

3:1 Y=29X-36 

29:1" 
50 PRIBT(?453,"<any key to contin 
ue>" 

60 EXEC44539 
70 CLS0 



80 FORr=4T024ST£P4 

90 SETC5,Y,5>:BEXTY 

100 X=6 

110 FORY=OT030 

120 SHr(X,Y,3):SEXTY 

130 Y=27 

140 FORX=OT050 

150 EET(X,Y,3):HEXTX 

160 Y=28 

170 FORX-10TO50STEP6 

180 SET<X,Y,5>:NEXTX 

190 'SET GRAPH 

200 FORX=?T033 

210 V=33-X 

220 SET(X,V,4):HEXTX 

230 'GRAPH Y=2X 

240 FORX=7TO20 

250 V=40-2*X 

260 SET(X,V,4>:BEXTX 

270 'SET GRAPH Y=0.5X 

280 FORX=8T060 

290 V=30-IBT(.5*X> 

300 SETCX,V.4>:NEXTX 

310 PRIHT<?6,"Y=2X"; 

320 PFINTSH."Y=X"; 

330 PFINT«24,"Y=.5X"; 

340 PFINTG448," THE COEFFICIENT 

OF X SHOVS THE"; :PR1NT<5480, "slop 

e (2:1,1:1,. 5:1 ABOVE) "; 

350 PSINT«309,"<any k*y> lf ; 

360 EXEC 44539 

370 CLS0 

380 PEIHTIS128," THE NEXT SHOVS Y 

=X+C,VHERB C IS CUTTING POINT OF 

Y AXIS, H.O.IH Y=X+3 THE Y AXIS 

IS CUT AT +3." 
390 FRIHT«256 f " BECAUSE THE COEF 
FICIEKT DF X IS 1 IN ALL THESE, 
THE SLOPE IS ALVAYS 1...AHD S 

tbe lines are parallel.. 



400 PRIBT«458,"<any key>"; 

410 EXEC 44539 

420 CLS0 

430 'SET AXES AGAIN 

440 X=6 

450 FORY=0TO31:SET(X,Y,3):NEXT Y 

460 Y=27 

470 FORX=OT055 

480 SBT(X,Y,3>:REXTX 



490 'SET GRAPH Y^X(+0) 

50O F0RX=7T033 

510 W=33-X 

520 SETCX,V ( 4>:NEXT X 

530 'SET GRAPH Y=X+3 

540 FOSX=7T030 

550 V=(33-3>-X 

560 SET a,V,4>: NEXT X 

570 'SET GRAPH Y=X+3 

580 F0RX=7TO33 

590 V=(33f3>-X 

600 SETU.V, 4) .-NEXT X 

610 PRIBT«?353,"+3"; : PRINTS 18," 

620 PRIHT^^482 l ,, -^ , '; 

630 FRIHT<?40,"Y=X+3"i 

640 PRIBT<S16,"Y=X M ; 

650 PRI5T©eO l "Y=X-3 M ; 

660 PRINT®256,"THE NUHBER ADDED 

TO X GIVES THE Y INTERCEPT C+3,0, 

-3 HERE) "; 

670 PRlNT(5214 l "<ttny key>"; 

680 BXEC 44539 

690 'SET AIES AGAIN 

700 CLS0 

710 X=6 

720 FORY=0TO31 

730 SBT(X,Y,3>:NEXTY 

740 Y=27 

750 FORX=0TO50 

760 SET<X,T,3):NEXTX 

770 'SET GRAPH Y=0.5X+3 

780 FORX=6TO50 

790 V=20+IHT(0.54(12-X>)-3 

800 IF V-0 GOTO 820 

810 SETCX.V. 1):NEXT X 

820 PRINT<5146,"Y=.5X+3"; 

830 PRIBTe289,"+3"; 

840 PR1BT<M48,"THE ABOVE GRAPH C 

UTS Y AXIS lT ft fiI>KlHT««0, n +3, A 

BD HAS SLOPE OF .5:1 "; 

850 FRlNt«342,"<any key>"; 

860 EXEC 44539 

870 CLS 

880 INPUT"DO YOU VABT ANOTHER RU 

N THROUGH (Y7H)";QS 

890 IF QJ="T" THEN 10 ELSE900 

900 CLS<7):PRINT®20Q, "THAT'S ALL 
FOLKS!"; 

910 G0T0910 
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BEGINNER'S 




TUTORIAL by Jim Rogers 



LET US START V1TH a small 
hint. First of all It Is a 
good idea to develop the 
habit of turning on your 
computer In a sequence. 

Turn on the power, the TV, 
then the computer. In shutting 
down, do It in reverse order. 
Computer off, TV off, power off. 
This has soocthinR to do with 
allowing the power to discharge 
but It will make your equipment 
last much longer. 

Vhen you first bring your new 
computer home and get It all set 
up and working as per the manual 
don't be afraid to play with It. 
Just by pressing buttons and 
ranking; lots of mistakes you will 
learn and you will become 
familiar with the keyboard and 
what It will do. One thing is 
sure, you can't do any harm. 

Tou will that there are two 
buttons at the back of the 
keyboard (or somewhere else on 
the machine. Check your manual) 

One is the on/off switch and 
the other Is the reset button. 

If you uae the on/off button 
everything in the memory is 
wiped out. If you use the reset 
button you will clear the screen 
of all but the cursor and the OK 
sign. 



To check this type in LIST and 
you will find that the memory is 
intact and what was in the 
memory will be listed back on 

the screen. 

Vhen it was put together, the 
computer was taught and 

instructed to do certain things 
in a certain way and order and 
wo will go into this as we go 
along. 

Of all the languages which 
computers are capable of 

understanding, BASIC is probably 
the easiest for beginners like 
us to learn and understand as it 
is the one most home computers 
use and is more like our spoken 
language with just some simple 
words and syabuls added. 

About now you will want to get 

an with writing the first of 

your nany programs Invented and 
developed by yourself so that 
you can become a computer 

programmer. 

First of all, you will find 

that, once having the cursor and 
the OK sign up on the screen, 
anything you type on the 
keyboard will immediately appear 
on the screen, but that is all. 

It will just sit there and 
nothing else will happen. To 
make something happen you Bust 
give the computer a command that 
it will understand. 



If you type In: 

What is 29 ♦ 56 

... that will appear on the 
screen but nothlnR happens. 

How, let's try your first 
command: 

PRIHT 29 * 56 

... and Immediately you will 
get an answer: 85. 

You have just used the 
computer as a calculator but In 
doing so reaeaaber that the 
mathmatlcal signs are a little 
different. 



"+ M = ADD, 

"-•' = minus, 

"» w = nultioly* 

"/" = divide. 

low we have learned that by 
using the command PRIHT we can 
make the computer give us aa 
answer to a problem. 

If we want a phrase to be 
printed on the screen we use tha 
PRIHT command and the enclose 
the phrase in quote marks thus: 

PRIHT "GOOD MOHIIIG. JtY IAIE IS 
CHARLIE". 

Press ESTER and there It Is on 
the screen. The enclosed 

statement Ls known as a STRUG. 

By pressing the EHTBR key ycu 
have told the computer to retain 
the information you have keyed 
in in the memory. 

Should you make a nlstske In 
the typing of a command you will 
get a reply on the screen which 
says ?SH ERROR and vou will have 
to retype that command. 

So if you typed: 

PRHT"Good Morning" 

... vou will have an ?SS ERROR 
In reply. Correct it toi 

PRIHT u Oood Morning" 

and press EITER and 
everything is right again. 

There are two ways to clear 
all the bits and pieces you have 
so far accumulated In the 
memory. CLS and E8TER will only 
clear the screen but the on/off 
button will clear the memory. 

After turning off, wait a 

short while before turning on 
again to allow the computer to 
discharge. 

The easier way is to type BSV 
and ESTEE. This will clear the 
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memory and should be used when 
changing from one program tn the 
memory to another. 

It Is very Rood practice to 
key in printed programs. It, in 
Itself, can be a gooc teacher 
but great care must be taten to 
copy them exactly as they aco 
written. Leaving out a ";" or a 
";" or a "*" or a "," or a "*" 
can alter the whole program and 
prevent it from workin*. 

Start with shorter programs 
first and check each line 
carefully after typing in. 

You will notice that these 
lines are numbered, usually in 
multiples of 10. The reason for 
this that other lines may be 
added later if required. 

Ve have covered two BASIC 
commands thus far, PRIHT and 
CLS. Haw a third one is IHPUT 
and with this one we can write a 
small program. Try this: 

10 PRIHT "GOOD MORWIHG" 
20 PRIHT "WHO IS YOUR FRIEHD?" 
30 IHPUT F* 

40 PRIHT "PLEASED TO KEET YOU 
"; Fi 

How type RUH and press EHTSS 
and you will be asked who your 
friend Is. Type in his name and 
again EHTER. 

Remember to make a space 
between YOU and tbe quotes in 
line 40 so that YOU and the name 
do not run together. 

How LIST and EHTER and you 
will see your original LISTiaft 
appear on the screen. 

Try CLS to clear the screen 
and LIST to brin* it back on. 
Then press the reset button and 
bring the program beck with 
LIST. 

Now type RUH and the program 
will start over again. 

Try this program with your own 
words, add some more to It, make 
some mistakes and then retype 
the lines correctly. To change 
or correct a line it is only 
necessary to retype it under the 
same line number at the bottom 
of the listing and you will find 
that It is automatically placed 
in the correct sequence. 

Our list of BASIC commands is 
now: 

FRIHT, CLS, ENTER, RUH, INPUT 
anJ LIST. 

If you have any queil-rS at 

problems please ask. Thet'fe ,iie 

extei ts h-ii'f l.u answer your 

nutritions and 1 don't mean me. 
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For those of you who are 
wondering, photos of your high 
scores are welcome, but they 
most be clear and the subject 
needs to fill the whole photo. 

if you're into photography, 
this is the best way to obtain a 

photo of your high ecares: 

* You should take the photo in 
a dark room with only the TV or 
monitor on using a low shatter 
speed, tripod, and 10 flash. 

t I recommend a shutter speed 
of 1/8 of a sec or less. (The 
reason for this is that TV 6 
flickers at high speeds, and if 
you take a photo at a high speed 
you will roi-Q than likely catch. 
a flicker in with your shot, ie 

part of the screen is blank in 

your phot , whereas on a low 
speed the shutter will be open 
for a number frames to flick by 
on your TV. 

This will ensure that your 
shot will have the whole screen, 
but this method is only 

effective on non-moving screens. 

* If the screen flickers 
different frames by while the 
shutter is open, you'll end up 
with an overlay of all the 
different frames Cbetter known 
as a blear). 



f* r.f* 
I need some help In BLACK 

SAHCTUH! ! How do you Ret past 

the door that is nailed shut! f? 
And what Is the organ used for? 
If anyone knows Please tell me!! 

You all have work hard since 
this column started, to 

accumulate such a large list of 
extremly high scores, But many 
of the top scores have remained 
unchanged for some time. 

To create a bit more 

competition and give other 

players a chance to Ret onto 

Player 1, we were thinking of 
clearing Player 1 and starting 
from scratch. 

Ve would like to know your 
opinion on this ldoa, so please 
write in or drop us a line 
before December 10th and let us 
know what you think. 



HJ.cbai.-l - 



Here's a letter sent In by 
Brian Joyce cf Canberra. 



Dear Hichael, 

I have the answer to "Dungeons 
of Daggorath"! 

First I want to tell you that 
I have cleared the lot. Vhen you 
start you have to get the Vulcan 
Ring first. On the second level, 
you flet a Rime Ring. 

Don't incant them until the 
third level. I suggest that 
before yc-u go down to the second 

level, you kill the two 'blobs'. 
Off one blob you get an Iron 

Sword, off the other you get a 
Vulcan Ring. 

Also get a few spare torches, 
then go down, Remember, the more 
creatures you kill, the more 
powerful you get. 

Save both rings to use on the 
wizard <the imaginary one). Both 
rings can he used three times. 
Vhen you encounter the wizard, 
make him chase you into a long 
corridor. Get one of your rings 
and incant it. 

Leave your sword in your 
hand - you might encounter other 
creatures. 

Vhen the wizard is in your 
room, use yonr ring, run down 
the other end of the corridor 
and wait for your heart to slow 
down <you night have to go for 
another run back to the other 
end! ). 

It takes five or six shots 
with both of the rings to kill 
the imaginary wizard. 

In the book, it says that they 
think the real wizard lives 
below the level 3. That's 
correct. After you kill the 
imaginary wizard, you go to the 

forth level. The real wizard is 
on the fifth level. Tou win 
after you kill the Mm with a 

ring you get an the forth level. 
And the rest, you clobber them 
with your sword. After you kill 
the real wizard, you go back to 
having a pine torch. There ie a 
ring on the floor where the 
wizard was silled. Incant It, 
and the game ends. 
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^EaMTcHWS' rMAS 

PACKAGE 



CoCo3 Home Educational 
Package 



Enjoy reliable computer technology from a user-friendly Tandy 
computer package that is easy on the budget. Be entertained and 
educated at the same time. With this great computer package you 
can get down to work or fun from day one. Enjoy super quality 
computer equipment in your own home. This is an exciting offer 
that should not be missed. 




Package Includes: 

Your own computer system for fun, entertainment, professional 
application and an excellent saving! Make a fantastic investment 
this Christmas and treat yourself and your family to computing 
fun with Tandy. This package includes a computer cassette 
recorder, a set of joysticks, a handy nylon marker pen, 2 
education and 2 game programs and the CoCo3 keyboard. This 
package is too good to miss, so rush into Tandy now before it is 

tOO late. 26.1208. 26-3008. 26-9649, 26-9407, 26-9550, 26-7967. 26-7968 



BUY NOW AND SAVE! 




Color Computer 3 

Reg 449.00 $ 369 



128K Extended BASIC Color Computer 3. Be enter- 
tained, educated and get professional applications such 
as graphics, programming, budgets & more. 128K 
memory expandable to 51 2K. Connect to your TV for 
instant use. 26-3334 



1000 EX Great Home Education Package 




$ 



1499 



BONUS 

Software Pack Includes: 



Reg 

2198.00 



• Typing Tudor III, Improve Speed 
& Accuracy 

• Smat Money, to help organize finances 

• P-16 Falcon— a game 

• Crosscheck-B/W — a crossword puzzle 

Suggested Retail Value: $300 

Tandy 1000 EX. A wonderful computer pack- 
age to give, great to get! Best of all, buy a PC- 
Compatible 1000 EX before Christmas and get 
the software bonus pack to the value of 
$300.00. Take advantage of Personal Desk- 
Mate at no extra cost. It's the best computer 
package put together for Christmas. Buy today 
and save! 25-1050, 25-1023, 259650 



Same package as above with the 
VM-2 Monochrome Monitor. 26-3211 
Reg 1948.95..Save 649.95 $1299 

Trademark OZ1SOFT 
Monitor itand not included 



Save 
$100 




Triple-Mode Personal Printer 

Reg 599.95 499^ 5 

DMP 130. Word-processing, data-processing and 
dot -addressable graphics modes. 26-1280 



A DIVISION Of IANDV 
tUS'-Av'A L'WlTf rj 

INC t'J'JSW 



Nuriy 
350 Stores 

Australia - 



WE SERVICE WHAT WE SELL! 



Available From 350 Stores 

Australiawide Including 

Tandy Computer Centres 

or Order On VIATEL * 64261 4# 

Tandy OiHin may not tw paWfMHg Ki ttw ad or htv* avary Mm advartiaarj. 

Pncaa my mm wy u moMduaJ Dtw Sroraa 











G 1010 


f 5 Adventure Canes 








d 


M. 


410.00 






if TV 


C 1011 


f 6 Preschool Edn 


S16.00 




JLas- tam 


Vx 




G 1012 


' 7 Graphics 


110.00 




thp 






G 1013 


' 6 1GK Go nos 


116.00 


* 


tilt* 






G 1014 


1 9 32K Gases 


MO. 00 




Go 


1 hCAE' 


T 


Pun 








^iU 


LU)Vr 


1 


I ten f 


Description 


Price 






—■ 




Q 1020 


Ancient Art of Var 


•90.00 




*A#. 


Ita 


Q 1021 
Q 1022 


Print Bhop 
Gato 


4110.00 

sea. oo 




lflf 


IfUDA/ 


%mJr 


Q 1023 


Sargon ill 


•90.00 




if 1 


!irftJw\ 


rlV 


Q 1024 


Zork I 


•79.00 










3 1025 


Zork II 


•79.00 






01 


1 


Q 1026 


Zork 111 


•79.00 






W\ 


F 


Q 1027 
Q 1028 
Q 1029 


Trinity 

Ballyhoo 

Hitch flicker** Guide 


179.00 
•79.00 






Tli© Goldsoft Vlshbaok 






The 


following pi oducts are 


available 




to the Galaxy 


•79. 00 




on ordo 


r Iron us. 




Q 1030 


Crossword Kaglc 


•60.00 




To order, contact us by phone, Viatel 


Q 1031 


The Anrlcan Challenge 


166.00 




or letter, giving your name, 


address, 


Q 1032 


Balance of Power 


•89.00 




phone 


nuaber and credit card number , as 


Q 1033 


Rector 


•79,00 




well as 


the l ten # shown be 


side the 


q 1034 


Jet 


•114.00 




product 


as listed below. 




Q 1035 


Roonmlat 


•79.00 


' 


All 


Items Include post and packing. 


Q 1030 


Shanghai 


tea. oo 










Q 1037 


Championship Golf 


•89.00 






CoCo Hardware 




Q 1036 


Borrowed Tine 


400.00 




I ten $ 


Description 


Frice 


Z 2018 


Tbs Great International 






G 001 


Ihe CoCoConnect Ion - 
'Jse your CoCo to 






Faper Airplane Constru- 
ction kit 


449.95 






control models, alarms 




Z 2019 


Star Trek 


•49.95 






- anything electrical 


$206.00 


Z 2020 


Chanpionshlp Boxing 


109.95 




G 002 


Video Anpl If ier with 




2 2021 


Ultima EI 


469.95 






sound - attach your 




Z 2022 


Decision in the Desert 


•69.95 






CoCo 1 or 2 to a 




Z 2023 
'Z 2024 


F-15 Strike Eagle 


469.95 






Video monitor 


135.00 


Kings Quest 


•69.95 




003 


The Probe - A teaper- 




Z 2025 


Rean 18 


•69.95 






atuie sensing unit 




Z 2026 


Boulderdaeh 


449.95 






you plugin to the Joy 




Z 2027 


Boulderdaeh II 


•49.95 






stick port. 


449.95 


Z 2028 
Z 2029 


Conflict in Vletnsa 

Dambusters 


469.95 

469.95 






CoCd Software 




Z 2030 


Kings Quest I] 


469.95 




I ten 


Beset iptlon 


Price 


Z 2031 


PSI-5 Trading Company 


469.95 




G 1001 


Say the Voi dz - two 


Z 2032 


Silent Service 


469.95 






Curriculum based 




Z 2033 


Solo Flight 


489.95 






speller programs for 




Z 2035 


Star Flset 


459.95 






your Taudy Speech / 




Bducatlc 










Sound Fack <32K ECB> 


•29.95 


n 












Item f 


Description 


Price 










Z 2036 


Chem Lab 


469.95 






The C<h.o 3 Tape/DlsJi 




Z 2037 


Creature Creator 


459.95 




Item * 




Price 


Z 2030 


Crypto Cube 


459.95 




G 1002 
G 1003 
G 1004 


# 1 


•16.00 


2 2039 


Decimal Dungeon 


•49.95 




$ 2 


• 16.00 


Z 2040 


Dome Id Duck's Playground 


439.95 




3 


fie.oo 


Z 2041 


Bur ope an let lone and 






G 1015 
G 1016 


#10 Education 
•11 Education 
(Disk only) 


416.00 
S16.00 


Z 2042 
Z 2043 
Z 2044 
Z 2045 

Z 2046 
Z 2047 


Locations 

Fraction Action 

Rath Raze 

Rickey** Space Adrentar* 

Rlsslon Algebre 

Race Car •Rithmetic 

Remember 1 


•59.95 
449.95 

•59.95 
•69.90 
•59.90 
•49.95 
•SO* 99 






The Best of CoCoOz 




Z 2048 


Shlpe Ahoy 


•59.95 




I ten 


Description 


Price 


Z 2049 


Spellegrmph 


•59.95 




1005 


' 1 Education 


316.00 


Z 2050 


Spsllakasam 


•59.90 




G 1006 


t 2 Part 1 10 K Games 


•16.00 


Z 2051 


6pe 1 1 icopter 


•59.99 




G 1007 


# 2 Part 2 32K Games 


310. 00 


Z 2052 


Tea Little Robots 


449.99 




1006 


» 3 Utilities 


•16.00 


Z 2053 


Winnie The Pooh in the 






G 1009 


* * Business 


•16,00 




100 Acre Wood 


•09.99 



CHRISTMAS GIFTS FOR YOUR COMPUTER 




RS232C 
NULL 
MODEM 
ADAPTOR 



$1335 




A**j£t> S iS»S4 



rw 




RS232 DATA SWITCH 

WITH 

TESTER 



$9995 




RS232 

SURGE PROTECTOR 

$28 80 





RS232 
BREAK 
OUT BOX 



*94 95 



RS232 

MINI TESTER 



$2470 




RS323 

GENDER 

CHANGER 



$12 45 



Accessories to keen your system tunning 



MAGNETIC 

BULK 

ERASER 




$3995 



GOLDSOFT 
DISKETTES 

5 1 /4 DS DD 




BOX OF 10 

17" 




5% AND 3% 
DISK DRIVER 
HEAD CLEANER 



$©55 



e? 





$1395 



HEAD 
DEMAGNETISER 




TAPE HEAD 
CARE KIT 



$435 



CASSETTE 
TAPE ERASER 



$1315 




Available from: 



MasterCard 1 



uupicomc nere 



GOLDSOFT 



P.O. BOX 1742, SPORT, Q, 4215 

TEL: (075) 39 6177 or order on VIATEL '64213 # 



FOOTY 



JUM 



by David Dyson 



OoCo 3 
GRAPHICS 



FOOTY JUMPER: SIRCE Joy 
Vallace did "Footy Fever", I 
did somethin* like that. 
This proprai draws all the 14 
teams In the league Jumpers, 
uslnR Joy's Palettes she used In 
her proRroa, 
Enjoy! 




The Listing: 



GOTO 10 

1 ' ***FOOTY JUMPERS***' 

2 '**(C> I907*t 

3 SAVE"308B:3"EHD'6 
10 VIDTH40 

20 CLS RND<8> 
22 P0KE65 497,0 

25 PALETTERGB 

26 OH BRK GOTO 380 

30 PRIHT"***** ***** ***** ***** 
* ¥" 

* * * * 



40 PRIST"* 
* *" 

50 PRIST"*** 

****** 
00 PRIST"* 

* " 
70 PRIST"* 

t 
80 LOCATE0.7 
10-0 PRIHT" 
*** ***** ***** 
110 PRIST" * * 

* * * *" 
120 PRIHT" * * 

* *** * * M 
130 PRINT"* * * 

*** *** *****" 

140 PRIHT" * * * 
* ** *" 



* * * * 

* * * * 
***** ***** 



* * * * 



* 

* 

* 

* ** 



* ** ** * 
****** 
******* 

* * * * 



***** 



* * 



BY DAVID B.L. 
ft ADAM R. DYS 
<C> 1987" 
PRESS ASY KEY TO 



150 PRIHT" * 

**** ** *•• 
160 PRIHT: PRIHT" 

DYS0H ": PRIHT' 
OR": PR INT" 
170 PRIST" 

START" 
180 U=IHKEY»: IFI*^"" THES 180 
185 PALETTESQB:PALETTE2,11:PAIET 
TEO,63:PAtETTE9,29:PAlETTE14,7:P 
ALETTE10,34.PALBTTE12,8:PALETTE6 
,32:PALETTE5,29 
18G GOSUB 400 

200 'EAGLES 

201 HSCREES2:HCLS11:HCOLOR8:GOSU 
B350 

202 HDRAV"BM8e.72;M+4.+&M+2.+12K 
-2 , +8BK1 04 , 72M+8 , +18M42 , +4D16 ; H- 
l,+4M-3 l *12K-4,+6BM184,72M-4.+12 
D12BXl6&,?2H-a,+20I)20*U,+12K+2, 
+6" 

203 HDRAV"BMU6,120;M>8 l -121l+12, 
-10M+8, -2R4H»4, +1K+2, MH-2, +8K-1 
, -4L4G4D7F4L16MU2, -12" 

204 HDRAV"BK132 1 120H412,-24BH116 
l 120R16BM136,98H*4,+43M136,98IC+2 
.+10 

205 HPAIBTU36, 136) , 1,8: HPAIHTC2 
00.75), l,8:HPAINT(64,dO>, 1,8: HPA 
HT<172,9e),12,0;HPAIITCW,W),l 
2.8:HPAIHT(148,104),1,8:HPAIHT(1 
32.108).12,8:HPAIBT(H0,116>,12 1 
8:HPAIHT<U0, 101), 12,3 

206 HPAIHT(236.80),12.8:HPAIHT(3 
6 1 76> ( 12,8:HPAlHT(116 l 80),12 t 8:H 
PA1HTC156,80>,12.8 

207 HPREIT(10,23) 1 , 'EALGES JUMPER 
it 

200 Ii=EHKEY*:IF I*= M " THES 208 

210 'BEARS 

211 HSCRBBK:HCLS11:HC0L0R8:G0SU 
B350;HPAIHTU36, 116), 6, 8 

212 HTjRAV"BM68,72;J)16R4U16R4D16R 
4U16R8D16BH208, 72; D16L4U16L4D16L 



4U16LBD16B*92.96;R88 

214 HDRAV"BM136,96M+6,+16L16B>8, 
-16BR128,114H125,118H132,118D2H1 
24.120K-1 ( +4R8E4U2H132 1 114H128,1 
14BM134, 115R6H*4.tlD6;M140,124;L 
8BK136.120R4U2L4" 

215 HDRAV"BM23.124K-3,*4B8F1D2C 
1L8M-1, +4R20U8M-16.-4" 

216 HDRAV"BN134,126;R14F4D4G2L12 
BM140,132R4V2L4" 

217 HPAIHTU48,104^,1,8:HFA1HT<2 

12,60). 1,8: HPAIST(56,80), 1,8: HPA 

1ST (201, 80), 1, 6: HPA 1ST (194, 80), 1 
,8;HPAIHT<84,80>. 1 , 8: HPAIHT(74, 8 
0),1.& 

218 HPAIHT(36,B0),6.8:HPAIST<112 
,7e>,l,fl;HPAI»T(156,60) l l l 6:aPAI 
HT (232, 80) , 6, 8: HPR I HT<10, 23), "BR 
ISBAHE BEARS JUMPER" 

219 IS-tMKEYS: IFI$=' , " THES 210 

220 ■ GEELOSG 

22 1 HS3REES2 : HCLS1 1 : HC0L0R8 : 30SU 
B350 : HDRAV" BH48 , 72D16R8U 16R8D16R 
8Ul6R8D16R8U16iBM164,72D16R8U16R 
eD16R8Ul6R8D16R80ie;BK92.96R90;B 
K178,104L84;BK98,112R76BM171,120 
;L70;BM104,128R64;BK164,136156;B 
H112.144R50" 

222 F0RD=1T044STEP16;HPAIHT(52+D 
,80),12 ( 8:HPAIBT(188+D,80),12,8; 
HEXTD 

223 FOR D=1T048STEP16:HPAIBTU36 
,100+DM2,8:REXT 

224 HPAIST(136,146),12,8:HPAIST( 
36,80>,i2,8:aPAIBT(112,76),12 1 8: 
HPAIBT(156,80) ) 12,e:HPAlHT<236,8 
0). 12,8: HPRIHT(10,24),"GEEL0IGS 
JUMPER" 

225 lS=!HKEYv"lFI*="" THEH 225 

230 'RICHMORD 

231 HSCREEH2:HCLSll:HCOLOR8:COSU 
B350 

232 HDRAV BM92, 96M140, 148R20M112 
. 96L20" : HPA IHfT ( 136 , 100) , 8. 8:HPAI 
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RT<12O,136),8,8:HPAI!IT(40.80),l, 
8:HPAINT<112,76M,8:HPAIHT<160, 
76) i 1.8:HPAIBT(236,76).l,8 

233 HPAIHTU08,104),1,8 

234 HPRiBTUO^O/'RICMOSDS JUMP 
ER" 

235 I*=!SKBY$: IFI*=""THES235 

236 ' ESSERDOM 

237 HSCREE»2:HCLS11:HCOLORQ:GOSU 
B35Q:HDRAV"BM92,96K140 I 148R20HU 
2,96L20":HPA1KTU36,100),8,B:HPA 
IMTU20,136),8,8:HPAINT<40,80),6 
,8:HPAIKT(tl2.76).6,8:HPA!HT(160 
,76),6,8:HPAINT(236 1 80),6 t 8:HPAI 
BTU16,116>,6»8 

238 HPRIBT<10,23),"ESSEBDOBS JUM 
PER" 

239 1*=IBKEYS: IF 1*="" THE! 239 

240 GOTO250 

243 FORD=44T084STEP8:HUBECD,72) 
- <D, 88) , PSET: BEXT: FORD= 188T0228S 
TEP8:HLISE<D, 72)- <D, 88) .PSET: BEX 
T 

244 HDRAVBM92.96; M180. 96L6D20U2 
0L8D40U40L8D52U52: M92.96R8D20U20 
R8D40U40" 

245 FORD=116T0156STEP8: KLIBE(D.9 
6)-(D, 148), PSET: BEXT 

246 FOR D=lTO40STEP16:HrAIBT(48* 
D,aO),R,8:HPAIIT(192+D,60),R ( 8;H 
EXT 

247 FOR S=96T0176STEP16:HPAIBT(S 
,100),t,8?IEXtjHPAIIIT<il2,76J,ai 
8:HPAIBTU60.76).R,8 

24ft RETURN 

249 'HTH MELBORBE 

250 HSCREEK;HCIS11:HCOLOR8 

251 R^9 

252 GOSUB350 

253 GQSUB243 

254 HPRIBTUO,24),"BTH. MBLBOURB 
ES JUMPER" 

255 U=EBKEYS: IFIS="" THEM 255 

256 HSCREEI2 : HCLS1 1 : HCOLOR8 i R=8 : 
GOSUB350:GOSUB243 

257 HPRIBT(10,24)."COLLIBGVODDS 
JUMPER 

258 I*=IBKEY5: IFU=""TH3B 258 

260 HSCREBB2:HCLSU: 

261 GOSUB350:R=10:GOSUB243:FORD= 
1T028STEP16:HPA1HT(56+D.80),1,8: 
HPAIBT<220-D,80),l,8:8£i(T:rORD=l 
0470176STEP16:HPAINT(D,100),1,8: 
BEXT:HPAIHT<36.80),1 1 8:KPAIBT<23 
2,80), 1,8 

262 HPR1HTC10,24),"HAVTH0RBS JUM 
PER" 

263 1$=IBKEYS:IFI*="" THEB 263 

264 ' CARLTOM 

265 HSCREEB2:HCLSll:HC0LOR8:G0SU 
B350 

266 HCIRCLE<132, 120), 20.8.1,. 15, 
.90:HCIRCLEU32 1 120) 1 18,8,1,.15 ( 
.90:HCtRCLE(132, 120), 9, 8. 1, . 15, . 
90:HCIRCLEU32.120>,7,8.1,.15,.9 


267 HDRAVBM130.120U24R8D2L6D20R 
4D2L4D22L2U24" 

26ft HPAlBT(160,U2),12,8:HPAIfiTC 
120, 116), 12, 8: HPAIBTUZ8, 120), 12 
( 8:HPAIHT<112,76).12,8:HPAIHTU6 



0,76), 12,8 

269 HPR1BTUO,24>,"CABLTOBS JUMP 
BR" 

270 I$=IHKEYS;IFIS="" THEB 270 

271 ' F1TZROY 

272 HSCRSEB2: HCLS1 1 : HCOUIRB: GDSU 
B350 

273 HDRAV" BN92 , 96C8 i R68" I HP A I HT < 
132,1161,1,8 

274 HCIRCLE<132,120),20,8,1,.15, 
.90:HCIRCLEU32, 120), 17,8. 1, .15, 
.90: HDRAV" BM148,108C8;G2;BM142, 1 
32F2" : *S="U24R8D2L6D20R4D2L4C22i 
2U24" 

275 HDRAVBM124, 120C8; "+F$+"BM13 
6 , 120" +F* 

276 HPAISTUQ8,100>,6,8:HPAIRT(1 
34.98>,6 1 8:HPAIHTU32.120),6.8:H 
PAIBT(120,120),6,8 

277 HPAIBT(168,86),12,8iHPAIIT<2 
32,80),6,8:HPA1BT<36,80),6,8:HPA 
IBTU12,76),6,8:HPAIBT(160,76>,6 

,e 

279 HPRIRTU0,24)."FITZROYS JUMP 

ER" 

280 I$ = ]KKEY$:IFI*= ,,M THEB 260 

28 1 HSCEEEB2 ; HCLS 1 1 : HC0L0R8 : GOSU 
B350 

282 HDRAV'BM96,108C8;M176, 108; BM 
174.110iM98.110" 

283 HDRAVBM106, 132; H166, 132BM10 
6,134;H166, 134" : HPAIMTC96, 84) , 12 
,8:HPAmT(132,144),12,8:HPAIITCl 
28,128>,6,ft:HPAIBT<112.76>,6,8:H 
PAIMTC160.76),6.B:HPAIIT<36,6Q>. 
6,B:HPAJBT(232,80) I 6,8:HDRAV , BK6 
G.72D16R2U16R16D16R2U16BM212.72D 
16L2U16L16D16L2U16": 

284 HPA1RTC61,80),11,8:HPAIBT<79 
,80) 1 11 1 8:HPA1HT(64,80),6,8:HPAI 
HT(211.8O),ll l 8:HPAIMT<193,80), 1 
1.8:HPAIBT<205,eO),6,8:HPRIBT<10 
,24VF0GTSCRAYS JUMPER" 

285 IS=IBKEY$: IFI»=°" THEM 235 

286 'ST K1LDA 

287 HSCREER2:HCLSll:HCOLOR8:GOSU 

B350 

288 HDRAV"BK92.96;R88":HL1BE<120 
,96)-(152,148),PSET,B:HPAlBT<104 
. 100>,6 I 8:HPAIBT(164.100),8,B:HP 
AINT<52,B0>,8,8 

289 HPRIBTU0,24),"ST. KILDAS JU 
KPER" 

290 I5=IBKBY*: IFI*="" THEH 290 

291 'SYDESV * 

292 HSCREEH2:HCLSll:HCOLOR8:GOSU 
B350 

293 HDRAV"BM92,72M125,110U8;M132 
, 110U3M130. 102M138, 110M140, 104M1 
36. 100M142. 104M144 , 108M144, 108M1 
48,104R2Mi80.72• , 

294 HPA1BT(124 1 96),3.8:HPAIBTC36 
,80),3,8:HPAIBT<232,80) 1 3 ) 8 

295 HPRIKT<10,24),"SYDBEYS JUKPE 
R" 

296 ISMRKEY*: IFt$="" THEB 296 

297 ■ KELBOURHE 

298 HSCREEB2 : HCLS1 1 : HCOLQR8 : GOSU 
B350 

299 HDPAV" BM104 , 72M1 36, 120M168 , 7 
2";HPAIMT(136, 100) ,6,8: HPA1ITQ3 



6.136),12,8;HFAIBT<36 1 B0),6,8;HP 

AIBTC232,80),5,8:HPA1BT<112 ( 76). 

12,8;HFAIHT<150,76),12,8 

300 HPRIBTU0,24),"KELBOURBES JU 

MPER" 

310 I$=IBKEY$:IFIS= M " THEB 310 

320 HSCREEB2:HCLSll:HCOLOR8:FORD 

=1TOIOO:HPRIBT<15,15),"THE EBD " 

: PALETTES, RHD<64) : HEXTD: END 

340 ' JUMPER 

349 GOT0349 

350 HDRAV"BM32,72;R12D16L12U16R8 
4F2QE20R84D16L12U16D16L44; M160, 1 
48L48;M88,88L44" 

360 HDRAV"BM114,72;F20E20R12G16H 

6" : HDRAVBM104. 72; F16E6" 
370 HDRAV"BH98,84;M+4,-2M+4,+2D4 
G4H4V4" 
375 RETURB 

380 PALETTBRGB:POKE65496,0:VIDTH 
32: EBD 

400 HSCREEB2:HCLS12:HC0L0R11 
410 04="E8R2dG8L28D36R28U36E&D36 
G8U28BL8L12D20R12U20L8D16G4E4R8" 
420 HDRAVBM32 , 8E8R24G8L24D36R12 
E4U6L4D12U12FeE4U0O4E4L12D4R&D8L 
8BU8U8R12U8E8D8G8BH68. 8" *0» 
425 HDRAW"BM108,8"+0$ 
430 HDRAtf"BMl56,8E8R36G&L36D8R16 
D26R8U28R12U8E8D8G3L4D20G8BM2Q4, 
8B8R8G8L6D20R12D16R8U16R12U20L8D 
12L16U12E8D12G8E8R8U4E8R8G8LBR8E 
8D20G8L4D8G8 n 

440 HDRAV" BM4 4 . 56E8R8G8L8D20G4U 1 
2G8F4R4L4H4L12E8R12G8L12D8F12R12 
E16032G8D32" 

450 HDRAW"BM58,56E8R8G8L8D40R32U 
40L8E8R8G8E8D40G8L16BU8U40G8D32R 
16U32BM112.55E8R8G8L8D40R8U20F8E 
8D20R8U40E8L8G8F8L8G8H8E8D16BM15 
2, 48D40GSL8U20G8D4G8" 
460 HDRAV" BM156 , 56E8R28G8L28D40R 
8U2OR20U2OL26BF6R12D4L12U4R4G4BD 
8R8D12G8BM192. 48D20G8" 
470 HDRAWBH196. 56E6R28G8L28r40R 
28U8L20U8R8U8L8U8R20U8E8D6G8L4G8 
E8D8G8R20G8E8D8G8" 
480 HDRAVBM236,56;E8R32G8L32D40 
R8U20R8D12G8U20R8M+8.+2GR8U16H4L 
4M+8.+20BK236.56R32E8D20G8U20D20 
L4R4BH8U4L16D4E4G4R16" 
490 HDRAVBK12.108R28D20G8L12H8U 
20" 

500 HPRiHT<2,12)."VFL" 
510 HCIRCLE<26,116),5,6,2 
520 HPA1BT(26,116).6,6:HDRAV"BM1 
6, 120R4F6E6R4G10H10" 
530 HPAIBT(26.128),11,11 
540 HPRIBT<2. 17>,"Footy Jumper 1 
s o programme that draws" rHPRIBT 
(2, 18), "all the fourteen fooball 
teans.":HPEIBT<2 l 19>,"Ail so th 
e new jumper for": HPRIBT<2,20) ," 
the sydenv swans" 
550 HPRIHT(2,2D," PRESS ABY 

KEY" 
560 IF 1BKET$=" M THEB 560 
570 RETURB 
40O0 GOTO4000 
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WRITTEN 




WORKSHEET 

by Dob Home 

32K -f printer 
EDUCATION 



THIS PROGRAM prints out a 
worksheet of nuabers la 
word form. Allowance 1b 
made for 4,5 or 6 digit numbers. 
Host numbers generated will 
have a zero somewhere In then. 
Tale w*£ done co olg to leave 
room for the answer at the end 
of the line when doing 6-dlgit 
numbers. 

The printer codes are for a 
Tandy DHP-105 and are documented 
with RBH"s throughout the 

program. If vour printer will 
not print block graphics, delete 
line 60 and delete the 

"G0SUB52U" In line 430. 

This sub-routine prints a 
pattern at the top and bottom of 
the sheet and is not critical 
for the rest of the program. 



The Listing: 



i rem*************************** 

2 REM* VRITTER HUKBERS * 

3 REM* VORK SHEET * 

4 REM* BY BOB HORKE * 

5 REM*************************** 

6 GOTO 10 

7 SAVB"309E:3":EBD'2 

10 DIHUSU9),T$(9:',AH<32> 



20 FORX=1T019: READUS(X) : HEXTX : FO 
RX=1T09: READTS (X) : HEXT 
30 CLS:PRIHTl?160. M HOV HAIY DIGIT 
S ill THB NUMBERS?", ,,"UP TO 4 Dl 
GITS. "./'UP TO 5 DIGITS.",, "UP T 
O 6 DIG ITS. ",," TYPE A DUUDER 4 - 

C "; IH$=IHKBY* 
4C IHS=ISKEYS: IF II$=»» THEH40 B 
LSB IF IH$<"4" OR IHS>"6" THEH40 
50 IH=VAL<IHS>:DI=6-VAL(IRS>:CLS 
:PRIHT®256,"N0V PRIHTI8G HUMBBRS 
.":Q=20 
60 GOSUB520 
66 REM * PRIBTER CODES * 

69 REM* CHR*(27);CHR»U4); SET 
DOUBLE VIDTH * CHRS (27) ; CHRS (15) 
Tl'RH IT OFF * CHRS<15) TURB 05 
UBDEK- LIKE * CHRS U4> TURH OFF 
UNDERLINE * 

70 PRIHTf-2, CHRS (27 ) ; CHR4 (14) ; "H 
AME" ; CHRS <27) ; CHR$ ( 15) ; : PR IHT#-2 
, CHR» (15) ; STRIHGS (30, 32) ; CHRS (14 
); 

80 H=RHD(-TIH£R):SH=T1HBR 

90 PRIIT#-2, "SHEET HUMBBR"SH: PRI 

BT#-2,"Vrite these numbers la dl 

gital form :-":PRIHT#-2 

100 FORZ=1TO Q 

110 FORX=1T05:H=RHDUO)-1:RS=STR 

SCH>:H=RtGHTS(HS.l>!M<X>=Hi!HB 

XTX: H=RHD (9) : HS=STRS (H> : St (6) =RI 

GHTS(BS.l) 

120 PORTI=0TO DI:HS(TI> = "0":HBXT 

T[:TI = RHD(IR-l>:HS(Ti)=' , 0" 

130 VK=" M ; AR4= , • , ' I PORX=1T06; AMS= 

AIS+HS(X): HEXTX 

139 REM******** 1ST DIGIT******** 

140 IF HS(1>="0" TREH160 

150 VS$=VSS+U$(VAL(HS(1>>>+" bun 

dred a&d » 

159 REM********2HD DIGIT******** 

160 IF HS(1>="0" AST) BS(2)a"0" T 
HEH220 

165 IF H*(2)="0" AJD BS(3>="0" T 

USff VHi-LBFTi<VH*,LEH<Virs>-5>:GO 

T0220 

170 IP H$(2)= M 0" TKEH220 

180 IF HS(2)="1" THEH DS=HS(2)+H 

S(3):VHS=VBS + U$(VAL(DJ)):GQTO250 

190 VH$=V3Sm(VAL(flS<2))> 

200 IF HS(3)=»0" THEH220 

210 VH$=VHS+"-" 

219 REM********3RD DIGIT******** 

220 A=0;FORX=1T03: IF M<X>="0 M T 
HEHA=A+1: HEXTX ELSE HEXTX 

230 IF A=3 THEH270 

240 VHS=VM$+US(VAL(H$(3>>> 
250 VBS=VBS+" thousand" 
260 IF HS<4)="0" THEH VHS=VB*+" 
and ":G0TO310 ELSB VBS=VBS+", » 

269 REM********4TH DIGIT******** 

270 A=0:FORX=IT04:1P H*(X)="0" T 
HER A=A+1; HEXTX ELSE HEXTX 

280 IF A=4 THEH320 

290 IF HS(4>="0" THEH320 

300 VHS=V»S+US<VAL(BS(4>>>+" hun 

dred and " 

3.0 IF H$(5)=**0" THEH380 

319 REM********5TH DIGIT******** 

320 A=0:FORX=lTO5:IF H*(I)="0" T 
HEM A=A+1: HEXTX ELSE HEXTX 



330 IF A=5 THBH390 

340 IF 5S(5)="1" THEH DS=HK5)+H 

* (6) : WS=VH$ + US (VAL(DS) ) : GOTO390 

350 V»$=VNS+TS(VAL(NS<5))) 

360 IF I$(6)="0" THEH390 

370 VHS=VH$+"-" 

379 RBH********6TH DIGIT******** 

380 Vl$=VH*tU$(VAL(H*<6>)) 

390 AS=1EFT*(VHS, 1): A=ASC(A$>-32 
:HIDSCVHS 1 1,1)=CHRS(A>:VHS=VHS+" 
.":AR<Z>=VAL<AH$> 
400 PRIBT#-2.USIHG"*#> ,, ;Z;:PRIBT 
#-2," "iVHI; 

410 PC-60-POS(-2>: IF PO>12 THEH 
P0=12 

420 PRIMT#-2,C8RSU5); STRIHGStPO 
,32);CHRSUO;:PRIHT#-2:PRlHT#-2 
430 HBXTZ;GOSU8520 
440 CLS:PRIHT©256,"HOV PR1ITIHG 
ABSVEHS" 

450 PfiiHT#-2:PRIHT#-2,"ABSVER SH 
EEP'SH 

460 F0R2*lTO Q STEP4:PRIHT#-2,TA 
B(l);:PRIHTr-2,USIHG"##>";Z; :PRI 
HT#-2," »; :PRIHT*-2,USIHG"4'#f### 
"; AH(Z); 

470 PRIHT#-2,TABC20);:PRIHr#-2,U 
SIHG n **)";ZH;:PRIBT#-2," w ;iPRI 
HT#-2,USIHG" ######"; AH(Z+l>j 
480 PRIBTI-2,TABC40);:PRIHT#-2 I U 
SIHG"##) ,, ;Z*2;:PRIHT*-2," ";:PRI 
8T#-2, USING" ######" ; AH (Z+2> j 
490 PPIHT#-2,TABC60>;:PRIHT#-2,U 
StHG"##)";Z+3; :PRIHT#-2," " ; : PRI 
HT#-2, U5IHG" ######" ; AH (Z+3> ; NEXT 
Z 

500 CLS:PRIKTS256,"RUH AGAIH <Y/ 
H> 1, :lBt = INKEYS 

510 I»S=INKEYS;IF IHS="" THEB510 
ELSE IF IHS="Y" THEH RUH ELSB I 
F IHS="H" THEH EHD ELSE510 

519 REM***CHRS(27);CHRS(283 TURH 
OH BLOCK PRUTIBG MODE**** 

520 PP,INTtf-2,CHR*(27);CHRS(28); 
530 FGRX=lTOfi:FRIHT#-2,CHRi(235) 
; CHRS (236) ; CHRS (234) j CHRS (231 >; C 
HRS (233 ) ; CHRS (235) ; CHRS (231 ) ; CHR 
S(231) ; CHR$<231) ; CHR* <233); : HEXT 
X:PRlNT#-2 

540 FORX=1T08:PRIBT#-2,CHRS(233^ 
; CHRS <2 3 1 ) ; CHRS (226 ) ; CHRS (225 ) ; C 
HRS (233 > ; CHRS (233 ) ; CHRS (236 ) ; CHR 
S (234 3 ; CHRS C225) ; CHRS (233) j : HEXT 
X:PRIBT#-2 

550 F0RX-lTOo;PRIHT#-2,CHR*(23n 
; CHRS (231) ; CHRS (231 ) ; CHRS (231 ) j C 
HRS (225 > ; CHRS (23 1 ) ; CHRS (231 ) ; CHR 
% (226 ) ; CHRS C23 1 ) ; CHRS (225) ; : HEXT 
X : PR I IT#-2 : PR I HT#-2 , CHRS (27 ) ; CHR 
$(54); 

559 REK***CHRS(27);CHRS(54> TURI 
OFF BLOCK PRIHTIHG MODE***** 

560 PEIHT#-2:RETURH 

570 DATAone, two, three, four.five, 
si x, seven, eight, nine, ten, eleven, 
twelve, thirteen, fourteen, t if teen 
.sixteen, seventeen, eighteen, nine 
teen550 DATA, twenty, thirty. forty 
.fifty, sixty, seventy, eighty, nine 

tv 
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BIKE SAFETY WAS a program I 
found inspiration for after 
escaping, without Injury, 
when I had a nasty accident with 
a Jaguar <the bike was a write 
off). 

There have been a few programs 
written with the aim of teaching 
children to recognize road signs 
for the CoCo 2, bat this 
program, utilising the full 128K 
of the CoCo 3, goes much further 
than this. 

Vrltten in Basic, "Bike 

Safety" is designed not to only 
make people aware of fhe rules 
of the road, etc, but to educate 
them on the different parts of 
the bike, how they functloa, and 
what purpose they fulfil. It 
attempts to do this using the 
superior graphics ability of the 
computer, presented in an 

attractive manner. 

About The Program 

First of all, let me advise 
you not to press the reset 
button when operating the 

program - the program will 
crash! 

After you've typed the program 
in 'and have saved it to tape or 
disk -ed.), you are presented 
with a title page where you 
enter your name. 

Aiter this, you advance to see 
a traffic light. Vhea It turns 
green you are allowed to enter 

the main menu. 




By Nicholas Fuller 



In the main menu, you have two 
options - 1 to quit or 2 t-o 
start again. 

Pressing the button on the 
joystick when the bike reaches 
the red sign will make your 
selection. 

To start again, move the 
Joystick to the centre or 
forward position. 

If you decide to start apain 
you will find yourself in a 
garage with the task of putting 
together a bic-ycle - it is a 
good Idea to have a pen and 
paper handy to write down the 
position of the letters an the 
screen. 

If yo'j successfully construct 
the bike your status report is 
given and "you advance to screen 
two. 

Screen two presents you with a 
menu of 10 Items, each one based 
on a different lecture. 

Section three is an adventure 
colled, "Dangerous Riding", 

which emphasises what you have 
learned in the a game - which is 
followd by the last part of the 
program - yes, that's right, a 
test! 

In this section, enter tout 
own questions and add your own 
printout routine. 

I hope you enjoy this program 
(ray first), and are able to 
learn something from it. It 
would be particularly useful for 
teachers and parents or anyone 
wanting to learn some of the 



EDUCATION 

COCO 3 + JOYSTICK 

techniques I have incorporated 
In this program. 

Enough writing - let's get 
busy and typs it In! 

Ed's note: tpe in 

PMODE0:PCLEARl before attempting 
to do anything with this 
program - it is about 22K long. 
Alternatively, you could always 
get this months Softgold on 
tape. 



The Listing: 



GOTO20 

1 ******* BIKE SAFETY ********** 

**** BICHOLAS FULLEB ******** 
3 SAVB"316:3":EHD'2 
20 GOTO 40 
30 POKE65496,0:EHD 
40 OH BRK GGTO 60 
50 GOTO 70 

60 CLS2:PRIHT"ST0P CHEAT1HG !!": 
AS=1RKEYS:IF A$= M " THEH 60 ELSE8 


70 IIBUFF1,687:HBUFF2.687 
80 GOTO 120 

90 PLAY"T255V1501" : F0RA=1T0L5: PL 
AY"CDCDCDCDCDCDCDCDCDCCV-" i NEXTA 
:PLAY"T25502Y1 M :FORZ=1 T0 30:PLA 
Y"GFEDCGPEDCGFEDCFV+" : BEXTZ; RETU 
RN 

100 FORT=1T0640:NEXTT:SOUSD1,1-R 
ETURH 

110 LP0KE5iei58,RKD<63> : P0KE6549 
7,0 

120 PALETTE CRT 
130 VIDrH40:CLS2:LOCATE12,5: ATTR 
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2,4,B,U:PRlFT H *t*BiKE SAFETY*** 
";:ATTR3,l:PRIBT;LOCATE6,15:ATTR 

3,2:PRINT"VritteiL By Nicholas F 
uller" ; : L0CATE13.17: ATTR 5,1; LOG 
ATE2,20:FRENT"An Educational Gam 
e on"; ;ATTR 4.5,1: PR I HT" ROAD SAF 
firrifiiATTR 3,1:PR1HT;PRINT 
140 GOSUB 90:PAL£TTE15,33:ATTR 7 
, li INPUT" EATER TTCUR SAME TO COHT 
INUE"; AS 

150 F0RY=1T063:PALETTE1,RHD(63> : 
P ALETT E5 . RHD (63 > : PALETTE8 , RND <63 
) : PALETTE1 1 , RNDC63) : PALETTE2, RHD 
(63) : PALETTE4, RND(63) : PALETTE7. R 
NDC63) : PALETTE15.RNDC63) : PALETIE 
0, RND<63) : PALETTE13, RNLC30) i PALE 
TTE12,RND(30):LPOK£516158,RND(63 
>:F=F+l:IFF=407HEN17O:IIEXTT 
160 GOTO 150 

1 70 ATTR4 , 2 : LOCA.TEQ , 22 : PR I NT" PRE 
S3 ANY KEY TO CONTINUE": |S=INKEY 
* 

160 [S=UKEY$:IF IJ=""THEffl80 EL 

SE 190 

190 HSCREEN 2: PALETTE CHP: PALETT 

E 0.53:HCLSliHCOLQR8,a 

200 HLINE(0,100)-(320,100).FSET 

210 HDRAVBM230, 19;C4E10R30G10E1 

0D81G10" 

220 HLINE<230,20)-(260, 100), PSET 

,B:HLI HE (229, 19) -(26 1,100), PSET, 

B:PALETTEll,43:HFftINT(232,21),Ll 

.4:HCIRCLfi(245.35>,12,4:HPAINTC2 

45.35>.3,4:COSUB100:HCIRCLE(245, 

60),12,4;PALETTE5,50:HPA1KT<245 1 

05),S,4:GOSVB10v:HClRCLE(245,85) 

, 12,4:PALETTE14, 18 

230 HPAINT(245,86),14.4 

240 PALETTE 5, 50: HPAINT(245, 65) , 

5,4:GOSUB100:HCIRCLE(245 1 85),12, 

4:PALETTE 14, 18: H?AINT(245 ,86) , 1 

4.4 

250 HPftINT(20,05> ( M STOP M 

260 PALETTE 15.61 HDRAVBH230, 19 

i C4ElQR31G10EIQDeiGlQ" : HPA INT<23 

5.16) l li,4:HPAINT(265 ( 24). 11,4: H 

DRAV"BM245,200;C4D7QR10U7GD70E5U 

65":HPAINT(246,l01).15,4:HPAINT( 

258, 109), 15,4 

270 FORT=100T0195STEP 15:A=G:B=3 

20;HLIME(A,T)-(B,T) l PSET:NEXTT:F 

QRE=1 TO320 STEP25:G=G+20:H=100: 

X=192: HLINE (G, H)- {E, X) , PSET: NEXT 

E: HPA 1ST (0,0), RHD (15), 4 

280 HPRirr<5.0>, "^WELCOME TO B 

IKE SAFETY***" :HPBINT (5. 1),""+AS 

290 PALETTE4,56:PALETTE4,32:PALE 

TTE4,3:PALETTE4,56 

300 HPRINT(20, 07) ."READY" : GOSUBl 

00:HPRINT(20,09>.'GO" 

310 FORR=l T015:A=RND(63):FALBTT 

El,A:PALETTE0,RND*63):FORT=l TOl 

0O:NEXTT:NEXTR 

320 GOTO 340 

330 HliUFF1.68?;HB0FF2,687 

340 HSCREEN2:PALETTERGB:HCOLOR4 i 
1 

350 PALETTE 0,0 

360 HL1 NE<0.50)- <50, 45) , PSET: HLI 

NE-<100,55),PSET:HLINE-(192 ( 50), 

PSET: HLINE-C197.4C), PSET: HLINE-< 



230, 56), PSET: HLINE- (2?0, 35), PSET 

:HLtNE-(320,50),PSET 

370 F0RT=1 TO 40: S=RHD(320> : R=RN 

T(35): HSET(S, R, 4) : A=RND (45) : B=RN 

D<2&0):HSET(B, I, 4) : HSEKS, A, 4) : H 

SETCS. R.4):NEXTT 

380 HLINE(0, 125)- (320,125), PSET: 

PALETTE 9.43:HPA1NT(5 I 115>,9 1 4 

390 PALETTEO.O 

400 HCIRCLEOO, 150). 20,13: HCIRCL 

E(30,150).19,L3:PALET?E 13,16:HC 

IRCLE(10O.150),20,13;HCIRCLE<100 
,150), 19, 13 

410 HLINE<30,150)-C35. 120), PSET: 

HLINE- (90, 120) , PSET: HDRAVBK1Q0, 

150:H5U55 M :HLIirE-<60.lS5>.PSET:H 

LINE- (30, 150), PSET: HLIIBC60, 155) 

-(35,120) , PSET; HCIRCLE (30, 150) ,4 

,5:HCIRCLE(30, 150), 3,5 

420 F$="E5L2R4L2G10L2P4-:HDRAV"B 

K50, 155; C4" +F£; HDEAV"BN95, 120; Ul 

0":HCIRCLE(95,105), 10, 13. . 5. . 75, 

.25;HDRAV ,, BK35.120;U1E7L15D7R10L 

lDl":HPAINT(30.n5),3.4: HC1RCLE( 

6),155),3,6:HCIRCLE(6C,155>,2,4; 

H'., I HE (30, 140)- (GO, 103), PSET: HLI N 

E(60,157)-(30, 152), PSET 

430 HCIRCLE(1G0.15G>,3,5 

440 POKE65497.0 

450 GOTO 470 

460 PALETTE1,50:HDRAV"BH95, 115;C 

1 E30D60H30":HPAINT(110, 120), 1,1 

: PALETTE1 , 0: HC IRCLE (105, 115) . 7,3 

, i. . 25, . 75: HDRA VBK105. 1 15; C3; 07 

Di4' , :HPAIHT(104 ( 115) 1 3,3;RETtfRN 
470 GOTO 490 

480 FORT=l TO 250: HEXTT: RETURN 
490 GOSUB480;HDRAV , 'BHG0, 155;C4;E 
5;CO;L2R4L2":GCSUB460:HC>RAV"BK60 
, :55;COG5L2R4":B$="U5L2R4L2D10L2 
R4":HDRAV"BK60, 155;C4"+BS:GOSUB4 
80:GOSUB46O:GOSUB510:HDRAV"BM60. 
155;C0"*B*:CS= , 'HSL2R4L2F10L2R4L2 
HV : HDRAVBM60 , 155; C9"4C$: GOSUB4 
80:HDRAV"EH60, 155;C0"+C$ 
500 D$="L7R14L5":HDRAV"BM60,155; 
C4" + D$:GOSUB480;GOS'UB450:HDRAV M B 
H60 I 155;CO , UDS:GOSUB460:GOTO 420 
510 HGBT <292,55)-(316,lO0),l:J* 
-"R8F8DeGQL8H9yaEflG8DaF8R2D20R4U 
2C" 

520 HPR1NTU5,0),"B I % E SAF 
E T Y":HCOLORRND<15),3:HPRINT(l 
5,2),"Henu":HPRINT(15,4) 1 "l-QUIT 
":HPRINT(15,5),"2-RTART AGAIN" 
530 GOTO 550 

540 HL1NE<200,10)-(202.8),PSET,B 
F: RETURN 

550 G0SUB580:GOT0 570 
560 F0RT=1 TQ250:NEXTT: RETURN 
570 RETURN 

580 HDRAVBM300,55;C5"U*:HPAIHT 
(302, 56). 3, 5: HPA I NT <304, 65), 7, 5: 
GCSUB560 : GOSUB460 : HGET (292 , 55) - ( 
316, 100),2:HPUT(292.55» (316, 100 
),1:HDRAV"BM300, 185; C15; R8D4L8U4 
":HPAIBT(302,186) r 15,15 
590 HPUT(262,55>-(286,100).2:GOS 
UE560:OOSUB460:HPUT<262,55)-(286 
. 100), 1:HPUT (232, 55>- (256, 1005,2 
:GOS(IB560: HPUT<232,55)-(256, 100) 



,1 

600 GOSUB560 

610 HPUT(202,55>-(22e,100),2:GOS 

UB560:GOSUB460:HPUT(202,55)-(226 

. 100;. 1:GOSUB460 

620 HPIIT(172.555-(106,100),2;COS 
UB560:HPUTC172.55)-(196.1OO).l:H 
PUT(i42,55)-(166,100),2;GOSUB5e0 
:G0SHB460:HPUT(142,55)-(166,10O) 
, 1;HPUT(82,55)-<106. 100),2:GOSUB 

560:CQSUB460:HPUT<82.55)-<106,10 
0>,1 

630 HPUT(52,55)-(76,100),2:GOSUB 
560:COSUB4O0:HPUT(52.55)-<76,lO0 
),1:HPUT (32, 55) -(56,100), 2: GOSUB 
560 : COSUB460 1 HPUT <32 , 55 > - <50 , 100 
) . 1: HPUT (2. 55)-C26, 1O0) ,2: GOSUB5 

50:HPUT(2,55)-(26.10O).i:GOSUB46 


640 A=BUTTON(0): IF A=0 THEN 650 

ELSE 600 

650 RETURN 

660 X=JOYSTK(0): J=JOYSTK(l): IFJ< 

10 THEH 30 ELSE IF J<34 OR J>10 

THEN 660 

670 NfcXLT 

680 HSCREEN2:POKE65497,0:PALETTE 

7,50:HCLS7:PALETTE3 ( 0:HCOLOR3.1: 

PP=PP+3 

690 FQRT=0 TO 100 STEP 5;E=320:H 

LINE(40,T)-(E,T),PSET:NEXTT:HLIN 

E(40,100)-(0, 192). PSET 

700 HLlNE(40,l0O)-(4O,0),PSET 

710 PALETTE12,4:HC0LOR12,2;X=Rin> 

(320):S-67; Y=RND(90):K=X+41:HLIN 

E<K 1 Y)-(K+7,Y+5>,PSET.BF:C=C+1: I 

F C=30 THEN 720 ELSE GOTO 710 

720 PALETTE4,5:HPAINT(0,0>,4,3 

730 PALETTE11.28:HPAINT(B0,120), 

11,3 

740 HCOLOR3.3 

750 HLINE(280,20>-(310,40) ,PSET, 

B:HLINE(280,20>-(310,40).PSBT,BF 

:HCOLOR7, 2: HLINE (295,20)- (295. 40 

).PSEr:HLINE(280.30)-<310,30),PS 

ET 

760 PALETTE15,O:HCOLOR15,0:HLIBB 
(25,5)-(277,95).PSET,BF:HC0L0R4, 
3:HLISE(24,4)-(278,96),PSET,B:HC 

OLOR15.0 

770 PALETTE14,63:PALETTE15,0:HCO 
LOR14 ) t5:HPRINT(4,l) 1 "# Y ou have 

just received your " : HPR1BT(4, 2 
> , "first" : PALETTE13, 16: HC0L0R13, 
15:HPRINT(10,2)."BIKE!";HCOLOR14 
. 15: HPR 1 NT ( 16, 2) , "Unfortunately 
it is":HPRINT(4,3V'not put to>(e 
ther You have to ** 
760 HPRINT(4, 4), "construct the b 
Ike by matching " i PALETTES, 34: HC 
OLOR5,13;HPRINT(4,5),"CORRECT":H 
COLOR14, 15: HPR1NTU2, 5). "letters 

to the rlRht";HPRIHT<4 ( 6>."nunib 

er":HPRINT(4.7),"**PRBSS AHY KEY 

**■• 

790 II=INKEY*:IF I$="»THEN 790 B 

LSE 810 

000 HSCREEN2: 

810 PALETTE15,25:PALETTE14,25:PA 
LETTE13 , 25: PALETTE5, 25: HCOLOR3, 5 
: HLI HE (25, 5) -(125 ,80), PSET, B 
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e20 HLINE<40,5)-<25.25),PSET:HLI 

NEt50,5)-<25,40>,PSET:HLIirE<65,5 

)-<25,60),PSET:HLI8E(75,5)-<25.7 

S>,PSET:HLINE(90 t 5)-(35,eO) 1 PSET 

:HLINEUQ0,5)-U5,80).PSET:HLINE 

U25 l 35)-<277,35>,PSET 

UCJQ HLLHEU15,5)-<50,60>,P5ET:HL 

IBE<125,5)-C7Q,80).PSET:HLINE<L2 

5,25)- (85,80). PSET: HLINEU25. 40) 

- (95. 80). PSET: HL1 NEC 125 ,55)- (105 

,80>»PSET;HLlHE<125 l 65)-aJ5 ) 80> 

, PSET 

840 HPRINTf20.3),"BIKE SAFETY" 

850 P=RND<63):A=RNDC63);PALETTEl 

. P : PALETTE2 , A: HPA I NT 128 , 7 > , 1 , 3 : H 

PA1NTU2,7),2.3:HPA1NT<50,7>,1,3 

:HPAIHT(72,7) 1 2,3:HPAlRT(e2 l 7),l 

,3:HPAINT<97,7),2,3:HPAINT'11G.7 

),l,3:HPAINr(l22,7) 1 S,3:HPAlNt(l 

25,12),i.3:HPAINTa24.75),i,3:HP 

AINTU24.05>,1.3 

&60 HPAINT(124,20>,1.3:HPA;NTU2 

4,30),2,3:HPAINTU24.52>,1,3:HPA 

IIIT(120.78) 1 1,3:HPAIHT(120.65) 1 2 

,3 

S70 GOTO 8Q0 

880 FORS^l TO10:PALETTEi,0 PALET 

TE2,o3:FORT=l TO300: HEXTT: PALETT 

El,03:PALETTE2,O;FORA=l TO300; HE 

XTA:NEXTS: RETURN 

890 GOSUB880 

900 HPRINT<20. 13), "Press c to ro 

an" 
910 C*="L5OG20F30E40":HDRAW"BK20 
0,15Q;C3"*C$;HLINE 00,200) -(153 
,150>,PSET:HCIRCLE<8 0,13O),15,3: 
HCIRCLEC250, 120) , 15, 3, .5: D*="E10 
•L2R4 L2G1QL2R4" i HDRAV" BH1O0, 1 15; C 
3"+D$:HDRAV"BM50.16O;C3;D15F7":H 
CIRCLE (100, 140), 6, 3, 1, ,75..25:HD 
RAVBX240, 150;C3;L15F8E7" 
920 HCIRCLEO00, 120) ,5,3, 1, .25,. 
75;HDEAV"BK300, 115;C3;D10": HPR1N 
TU8, 10),"A":HPRINT<32,10),"B":H 
PRINT<24,8>,"C M :HPR1NT(24 ( 1Q),"D 
":HPR1BT<30,7>, ,, E i *:H:PRIHT<33.6>, 
-F" 

930 HPRIHT<24,e>,"G M 
940 FORY=l TO 40: W=K«D(63>: 0=RND 
(63) i PALETTE1 , V : PALETTE2 . C: FORT= 
1 T02 00: HEXTT: PALETTE2.W:F ALETTE 
i,O:F0RT=lTO2Q0:GOSUB950:NEXTT:N 
EXTY950 G*=lNKEYJ;iF GS=""THEH R 
ETURH 

960 G0SUB2364 

970 ATTR 2,4,B: K=K+X:LOCATE12,7: 
PR INT" ANATOMY OF BIKE" ; : ATTR2 , 4 
980 IF K=2 THEN 1040 
990 LOCATE 4, 10: PRIMP* DBIKE FRA 
HE 2> PEDALS& CHAIN ";:ATTR2,4:L 
OCATE 4,12:PRIST"3)SEAT 4> WHEEL 
1 5> WHEEL 2";:ATTR2.4:L0CATE 4 
, 14: PR1NT"6> HANDLEBARS & FORKS & 
GEARS";:ATTR2,4 
1000 IF K=2 THEN 1040 
1010 L0CATE4, 18; ATTR3, 2: PRINTER 
ESS "C TO CONTINUE";: AT U2, 4 
1020 0*=INKEY$; IFG$="C"QROS="c"T 
HEN1030ELSE 1020 
1030 UOSUB2304 
1040 LOCATE 4, 10: PR INT"YOJ HAVE 




TO HATCH ";:ATTR2,4:LOCATE4, 10:P 
RINT'THE NUKBERSCAS SEEN AGAINST 
THE "::ATTR2.4:LQCATE4, 12: PRINT 
"WORDS OH THE PREVIOUS PAGE) TO 
" ; : ATTR2 , 4 LOCATE4 , 13: PRINT" THE 
RIGHT LETTERS" ;:ATTR2, 4 
1050 LOCATE4,14:ATTR3,G:PRINT"GO 
OD LUCK! ":FORE*1T03000:NEXTE: ATT 
R2. 4 : L0CATS4, 15: PR I MT" PRESS I BG < 
H> WILL SEKD YOU BACK ";:ATTR2,4 
:LOCATE4,16;PRlNT ,, TO THE BEGIN-" 
;:ATTR2,4:LOCATE4, 17: PR INT" NIG 
R TO WORD CHRR IF YOU NEED " I : AT 
TR2,4:LOCATE4,18 

1000 PRINT'HELP <W>";:ATTR2,4:FO 
RE=l TO 2500:BEXTE 
1070 GOSUB3364 

1080 ATTR6,3,U,B;L0CATE12.5:PRIN 
T "MATCH THE NUMBERS "; :ATTR2,4 
1090 GOTO 1110 

1100 LOCATE4,20:PRINT"PRESS <H; 
FOR HELP <W> FOR WORDS <C>";:ATT 
R2, 4;LOGATE4,21iPRINT"FOR HEXT Q 
UESTION'*;:AA*=INKEY$:lF AA$-"" T 
HEN 1100 ELSEIF AA$="H" THEN 6fl0 
ELSE IF AA$="C"THEN RETURN ELSE 
IF AAS="W" THEN 1130 
1110 GOSUE11O0 
1120 GOTO 1140 
1130 G0SUB2414 

1140 CLS5:LOCATE12,4:ATTR4,4.B.P 
R=PRU; PRINT" MATCH THE LETTERS": 
L0CATE1H,Q:AL1K4 ( 4: INPUT" A=" ; AA: 
LOCATE12.7: IHPUT"B=";AB : LOCATE 1 
2,8:INPUrC=";AC:LOCATE12,9:IHPU 
T"D=";AD:LOCATE12.10: IBPUT"E=";A 
E:LOCATE12,H: INPUT"F- M ;AF 
1150 IF AA=4 AND AB=5 AND AC=1 
AND AD=2 ABD AE=6 AHD AF=3 THEH 
1170 ELSE 1160 

1160 G0SUB2364:LOCATE12.4:PRINT" 
WROHG!!";;ATTR2,4:FORR-i TO 1000: 
NEXTRiGOTOlUO 

1170 PLAY"04T20L2AEDEA#CBT1502FL 
3GFCAE01EDEEDL1EDL45ED" : CLS: LCCA 
TE12, 4; POKE359, 57 : P0KE65314 , 16: P 
RIBTSTATUS REPORT"; :ATTR4, 4: LOG 
ATE14,5:PR1NT"Y0U CALLED HELP';P 
P" AND CALLED THE WORD LIST ";PQ 
"AMD HAD ";PR "NUMBER OF GOES";: 
ATTR4.4 

1180 L0CATE12.15; INPUT"PRESS <C> 
TO CONTINUE"; St: IF SS="C" OR SS 
="c" THEN 1190 ELSE 1180 
1190 PALETTE 8, RHD<63) : PALETTEO, 
RNTX63): ATTR2,6: L0CATE5, 3: PRUfP' 
CONGRATULATIONS';; 
ATTR5.1 



1200 FORT=l TO 1000: NEXTT: PALETT 
E8. 19: PALETTEO. 50:CLS0: L0CATE12, 
4: PR I NT" SECTION TWO";: 
1205 FORT=1T02500: HEXTT 
1210 PALETTE8,63:PALETTEO,0:CLS1 
: WIDTH80: LOCATS12. 4: PRINT*' **Sect 
ion Two 1 **" ; PRIST" You have now su 
ccessfully put your bike toRetbe 
r.Yau will now learn about the d 
ifferent parts of the bike and t 
heir function and hDW to lock of 
ter your bike" 

1220 : PRINT" In the section after 

you will then learn about road 

rules andat the end of the pronr 

aoroe will play on adventure type 

Rarae to emphalse all you hove i 

earned. A test will then be Riven 

and o printout will be ovaliabl 

e" 

1230 1NPUT"PRES5 'C TO CONTINUE 
";DS; IF D$="C"OR D*="c" THEN 124 
O ELSE 1230 

1240 V1DTH60:PRINT"M£NU":PRINT"L 
ECTURE ON BIKF':PR1NT"1)VHEELS 2 
JFRAKES 3) PEEALS 4 CHAINS 4) LI 
GHT AHD HANDLEBARS AND FORKS 4 B 
RAKES ":PRINT"SAFETY":PRINT"5)CA 
RING AFTER YOUR BIKE a SAFETY 7) 
ROAD RULES 8) EXIT TO NEXT SEC 
TI0N 

1250 PR1NT"9)EX.IT TO PREVIOUS SE 
CT10H 0) GOTO KAIN MENU" 
1260 AAS=IBKEYS: IF AA$="" THEN 1 
260 

1270 IF AAJ="1" THEN 1280 OR ELS 
E IF AA*="2"THEN 1420 OR ELSEIF 
AA$="3" THEN 1490 ORELSE IF AA*= 
"4" THEN 1620 ORELSE IF AAJ="5" 
THEN 1710 OR ELSEIF AA*="7" THEN 
1840 ORELSE IF AAS="8" THEN 194 
ORELSE IF AA*="9" THEN 960 OR 
ELSE IF AA$="0" THEN330 
1280 HSCREEN4HCLS1:HCOLOR2,2:HP 
RI NT C35 ,3>," WHEELS" :HCIRCLE (300, 

100), 130,4 

1290 HCIRCLE(300,100),129,4:HCIR 
CLEOQO, 100) , 125; HCiRCLE (300, 100 
),5,4:HCIRCLE(300.1O0) 1 lO,4 
1300 HLINE(20,50)-(e0.150> ( FSET, 
B:HLINE(55 t 55>-<45. 145), PSET, B:H 
LINE <55 1 55)-<75 r 35), PSET 
1310 HPRINTU0.3). "SPOKE"; HPRINT 
(35,15). "HUB AND BALL BEARINGS": 
HPRINT(16.10),"TYRE M 
1320 FUKL=1 10 3000:KEXTL 
1330 FORL=l TO 250: NEXTL: WIDTH40 
1340 L0CATE20,0;PRIhT'THE WHEEL" 
:PRI»T"The wheel lp an essential 
part of a bicycle. It is the thi 
nR which allows the bike to trov 
el and which supports the blke.T 
he wheel alsc contains the tvre 
, bal lbear inRS , spokes and hub as 
well as the rim." 
1350 PRINT" ";;PRINT"The rim 1 
s a circular piece of metal whic 
h the spokes are attached to. The 
rims main purpose is to support 
the tyre and attach it to the a 
ain frame of the bike. The spokes 
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job is to act rather like a sho 

ck asorber and the ballbearing 
1360 PRINT"ensure that the wheel 

moves smoothly"; F0RT=1 TO 4000: 
NEXTT:IKPUT"PRfcSS C TO CONTINUE" 
;AA$:IF AA$="C" OR AAS= "c" THEN 

1370 ELSE 1340 

1370 CLS: PRIST: PR I IT" You should 
always check your bike before vo 
u ride it and make sure everythi 
n* is all rlRht.Your tyres shoul 
d be at a fairly hlRh pressure t 
o make sure that the rim is not 
damaged, and the rins ehour be p 
olished when you wash your bik 
1380 PRINT"You should also check 
that Lke nuts attaching the hub 
to the forks is tlRht and secur 

e," 

1300 1SPUT"D0 YOU VANT TO SEE TH 

AT AGAIN y/n";U:lF L»="Y" THEN 

1280 ELSE IF LS="M» THEN 1240 

1400 GOTO 1400 

1410 GOTO1240 

1420 S0UMD54,1:HSCREEN2:ATTR1,3- 

HDRAW»BK100,50jC4G50F500100":HLI 

»ta00.5O>-(170 l 85) l PSET:HLINE-( 

100,150),PSET:HCOLOR2,6-:HPRINT<5 

.3) ."THE FRAftE" 

1430 HDRAV"BM95,6O;C4G40F40U80": 

HLIHE<10O,55)-(165,d5),PSET:HLIH 
E-(100.145),PSET 
1440 HPRINTC5.5). "PRESS 'C TO G 
0N":AS=ISKEY4:IF A*="C" THEN 1 
450 ELSE 1440 

1450 VIDTH40:CLS2:ATTR4. 3: LOCATE 
12.4:PRIBT"THE FRA NH" ; ; ATTR3 , 2 : P 
RINT"The frame Is the main of th 
e bike. Attached to It are all th 
e tbinHB which make up the bike. 
It too should be regularly clean 
ed and looked after. It is design 
ed to take all the stress" 
1400 PRIST" ";:PRlHT"Placed upo 
n it and is constructed of two t 
rtanfflee which suit this purpose 
suitably." 
1470 INPUT" DO YOU VANT TO SEE TH 
AT AGAIN" ;AA&: IF AAJ="Y" THEF 14 
20 OR IF AAS="N" THEN 1480 ELSE 
1240 

1480 GOTO 1240 

1490 H3CREEN4: HCLSl:HC0LOR0. 1:HP 
EINTC20, 3), "PEDALS AND CHAIN" 
1500 HL1RE(100,50)-<140 I 60),PSET 
,BF. HLIHE<150, i5Q)-<l90,l60>,rSE 
T,BF:HLIHE(i7O,150>-(12O.5O),PSE 
T: HLINEU65, 150)- (115,50) , FSET 
1510 HC1RCLE(145,105>,20,4:HPAIN 
TC145,105),3,4;HPAIKT(140,105> I 3 
.4:HPAINT<140,105),3,4 
1520 HCIRCLEC500, 100,20,4.1. .75 
, . 25; HCIRCLE (350,100), 30, 4,1, .25 
,.75:HLINE(350,85>-(500 I 90) ( PSET 
:HLINE<500.11O)-C350, 115),I'SBT 
15J0 HPR1NT(2 I 78>,'*PRESS , C TO C 
ONTINUE": AtMBKEY*: IF A$=""THEN 
1530 ELSE IF A$="C"THEN 1540 ELS 
E 1530 

1540 VlDTH40:CLS6;ATTR4,3:PRlNT" 
";:PRINT"PEDALS AND CHAINS" 



1550 ATTR4,3:PRINT*'Pedals and ch 
aias are an important part of th 
e bike. They essentially drive th 
e bike and can be considered as 
the motor drivlnR the vehicleCbi 
ke." 

1560 PRINT" Sorcwo holdinR the pe 
dais onto the arm must always be 

checked and worn out pedals bus 
t be replaced. The chain is used 
to turn the wheel around and it 
is important that it is checked 
for faults and taken apart for o 
illnR" 
1570 PRINT"For ni*ht travel it's 

a Rood idea to pet pedals with 
reflectors* * *": INPUT" PRESS C T 
O CONTINUE"; KKS: IF KKS='C"THENGG 
T01580 ELSE 1490 
1580 CLS: PRINT" ";:PRINi"THE SEA 
T":PRiNT"The seat is specially d 
esiRned on most bikes to support 

ycur body comfortably and pract 
teal ly. The Rear s are a coapllca 
ted set of cors of different siz 
es which makes travelling hard o 
r easy. Your brakes though are" 
1590 PRINT " perhaps one of the 
most vital objects on the bike t 
hese too are situated on the han 
dlebars and by squeezinR one of 
the wires it forces the brake pa 
ds on the rim and slows the bike 

down. Brake pads should be re«ul 
arly checked and replaced" 
1600 INPUT" DO YOU VAST TO SEE TH 
AT AGAIN Y/N";LS:IF L*="Y" THEH 
1490 ELSE IF L$="N" THEI1610 
1610 GOTO 1240 

1020 HSCREEN4:HCLS2:HCIBCLE(100, 
50),30,0.1,.25,.75:HCIRCLE(100.5 
0").40 I 0,1,.25,.75:HDRAVBH100,50 
;C0;BU15U5D5BD3OD100L10U95":HPAI 
NTG8, 135),0,0:HPA1NT<96,66>,0.0 
1630 HCIRCLE(400,90),40,3, 1..25, 
75: HDRAVBH400, 00; C3; U20P40" : HP 
AIBr(309.80),3,3 
1640 HCOLOR4,4:KPRINT<2,0>,"HAHD 
LEBARS & HEADLIGHTS Si FORKS": HPR 
INT<2.20)."FORKS":HPRINT(13,10>, 

,I HASDLEBARS":HPRINTC32,16),'"LIGH 
T" 

1650 FQRT=1 TO 4 000;NEXTT: VIDTH4 
0: PRINT; PRINT: PRINT' "i:ATTR3,2 
:PRINr'HEADLIGHTS AND HANDLEBAR 

1660 PRINT; PRINT: PRINr " ;:PRIN 
T"HeadliRhts and handlebars are 
two important parts of the bike. 
The handlebars steer the bike an 
d should be reRularly checked fo 
r aliment. Proper stoppers should 
be fitted where the handRrips s 
hould be" 

1670 PRINT" ";: PRINT" Aswe 11 as 
a possible headllRht the handleb 
ars may contain a bell or Rear 1 
eveps.HeadliRhts are -used for li 
Rht at niRht and also should be 
checked often. Globes ore easily 
broken and wires from a battery 



or a Renerator can be become"; 
1680 PR I NT" loose etc": PRINT" "; 
:PRINT"The forks attach the hand 
le bars to the wheel for steerin 
R and frame .they are of tea made 

of chrome 
1690 IHPUT"VOULD YOU LIKE TO SEH 

THAT AGAIN" ;AAt: IF AA$="Y" THE 
N 1620 ELSE IF AAJ="N" THEJT 1240 
1700 GOTO 1690 

1710 VIDTH40:CLS0:PALETTE12,63;P 
ALETTE13,0:PRINT"CARING AFTER YO 
UR BIKE" 

1720 PRINT" ";: PRINT" It is esse 
utiai that you look after your b 
ike if you wish to keep it in ro 
od order. There are many thinRs t 
hat yoj can do to look after you 
r blke- 

1730 PRINT" ";:PRINT"Hany thinR 
s must be constantly checked and 

replaced if needed.": PRINT" 
;:PRIHT"These include: tyres whic 
h must be checked for wear and p 

unctures handlebars must he in 

aliraent/ft at the risrht heUht m 
s must the seat — Rears a chai 
1740 PRIHT"be oiled and cleaned- 
- brakes be checked for wear a a 
djusted — pedals tiRhtened ,and 
Renerally have the bike clean a 
nd in a Rood state. A checklist i 
s on the next page" 
1750 IBPUT"C TO CONTINUE"; LL»: IF 

LL*="C" THEH 1760 ELSE 1750 
1760 CLS2:PRr»T"C HECKL1S 
T":PRIHT" »;:PRIHT"1> ARE THE H 
ANDLEBARS STRAIGHT AND AT THE RI 
GHT HEIGHT?": PRINT"2) IS THE SEAT 
AT A GOOD HEIGHT (FEET JUST TOU 
CHING GROUND)" ;PR!NT"3> ARE BRAK 
ES IN ORDER & HOT VORH" : PR INT" 4) 
ARE THE GEARS-CHAIN OILED a VO 
1770 PPINT"5) ARE THE TYRES PUMP 
ED UP/VITH A GOOD TREAD" : PRiNT"6 
) CHECK TO SEE THAT ALL SCREWS AR 
E TIGHT" :PRIBT"7>HAVE YO0 GT YOU 
R HELMET" ;PRINT"8>[ FOR NIGHT] HA 
VE YOU A LIGHT WORKING FRONT S B 
ACK":PFIHT"9)ARE YOU WEARING BR I 
GHT CLOTHES" 

1780 PEIBT"10)REHEHBER TO TAKE C 
AVE AT ALL TIKES & NOT TO DO ANY 
THING SILLY. OBSERVE THE ROAD RUL 
ES*AT ALL TIKE!*" 
1790 INPVP'VOULD YOU LIKE A PRIN 
TOUT OF THIS";LL»: IF LL*="Y" THE 
N 1800 ELSE 1810 



1800 REK 

IB 

1810 CLS: 
ber many 
e killed 
n the roa 
lways was 
ter it a 
least tvi 
bearinRs 
1820 INPU 

THAT AGA 

1710 



SPACE FOR PRINTER ROUTI 

PRINT" ";:PRIHT"ReBen 
hundreds of children ar 
or injured Rvery year o 
ds.": PRINr' ";:FRI!iT"A 
h your bike and look af 
take to a bike shop at 
ce a year to clean ball 
etc" 

T" WOULD YOU LIKE TO SEE 
IF';LL$:IF LL$="Y" THEN 
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1830 GOTO 1240 

1840 CLS5:ATTR4,3,B:PRIHT" ROAD 

*** RULES ,, iATTR3,2:PRJIT ,, Tfc is 

essential that you observe & kno 
w the road rules. Road rules are 
necessary for safety a order"; PR 

IHT"maJar road rules are ":FHI 

■P'l) keep to the left 2)observe 

the speed Unit 3)a3ways ride 
1850 PRIST" single file 4) dont 
weave between cars or blindly pi 
de behind n car where youre not 
seen 5) dont overtake 6) dont ri 
de on wronR side of roods ' 7 >sijcn 
al when turning 6)dont ride on f 
ootpaths unless on a dan«erous t 
harouRhfare 9)wear a helmet"; 
I860 PRIST" lDdont ride at ni«h 
t without o light front 4 back a 
nd reolectois l2>wear brightly c 
oloured clothes 13)dont do anyth 
in* stupid 4 be careful" 
1070 IHPUT'PRESS C TO CONTINUE"; 
LLS-.IF LL$="C" THEN I860 ELSE 18 
70 

1880 HSCREEN4:HCOLOR1.3:HPRINT<0 
,0)," ROAD RULES" 
1890 KPRINT<0,1),"IF AT A 'V IH 
TER3CTI0B GIVE VAY TO THE LEFT4R 
IGHT BEFORE TURHONG" : HPRIBTC0. 2) 
."IF A VEHICLE IS TURNIRG INTO Y 
OUR STREET GIVE VAY TO IT FIRST 
THE SAME RUl,E" : HPRIIIT<0,3> 1 "APPL 
IES AT A CROSS INTERSECT I OH REKE 
HBER TO OBEY STOP GIVEVAY SIGN 

1900 HPRIMT<0,4),"ASD TRAFFIC LI 

CHTS ALL THE RULES FOR A NORMAL 

CAR APPLY TO YOU": HPRIBTC0.5), "I 

F CROSQING A ZEBRA CROSSING GET 

OFF YOUR BIKE & WHEEL IT ACROSS" 

1910 HPRIBTC0,7),"press any key" 

1920 AA$=IMKEYS: IF AA*=""THEN192 

ELSE 1930 

1930 V1DTH40: IITPUT"VOULD YOU LIK 

E TO SEE THAT AGAIN" ;AA*: IF AA*= 

•*Y" THEN 1840 ELSE 1240 

1940 HSCREEH2:PALBTTE0,25:PALETT 

E1,5:HCOLOR1,0:HPRIHT(5.5), M DASG 

EROUS":HPRINT<5.10),"RIDIKG ! " : H 

PRINT (5, 18),"AN ADVENTURE BY N F 

ULLER" 

I960 HCQLOR1,0:HDRAW"BK20C,50;C3 

L30G30D30F30R30E30U30H30 M :HPAINT 

<200.60),3.3:HCOLOR1,0:HPE1BT<21 

,11). N ST0P":F0RT=1 TO 10; PALETTE 

1 , 63 : FORS= 1TO50: NEXTS; PALETTE1 . 

: BEXTT 

I960 HPRINT<20,0>, "PRESS ANY KEY 

M 

1970 \X4=IBKEY«; IF AXJ-""THEN 19 
70 ELSE 1980 

I960 HCLS: HDRAVBH0. 0;C2F160E160 
" : HPRiNT<15, 0) , "**SUXMQNS**" : PAL 
ETTE2,9:HCOL0R2,4:HPRIBT<0,2>,"T 
ASK: You are in your garage. You n 
ust":HPRINT<0,3),"ride to the ot 
her side of town with": HPRINT<0, 
4), "a secret letter but beware t 
here are " 

1990 HPRiHT(0,5), ,, niany dangers t 
o overcome & hazards" iHPRlNT (0,7 



) ."PRESS ASY KEY" 
2000 AX*=15KEYt: IF AXS="" TKENZ0 
00ELSE 2010 

2010 HSCRE»H2:HCLS0:HDRAV"BM0,1Q 
0; C2; R319H40U60D60L150U60D60G40U 
100D1Q0":HLIBEU30,6Q)-<220,1),P 
SET. HLI NE (250, 60) (260, 1) ,PSET:H 
PAINT<0,0),7,2:PALETTEG,19:HPAIB 
T(200,2),6,2:HPAIHT(120,5),3,2:H 
PAINT(319,5>,3 I 2:HPAIHT(120,90J, 
5,2 

2020 HCIRCLEU60. 15), 15,3,2: HPAI 
NT{160,15>,3,3:HCLRCLEC190,20) ( 4 
( 3,2:HPAINTU90,200,3,3 
2030 HPRINT(0,13)."Y0U , RE ABOUT 
TO RIDE" 

2040 HPRINT(0,14),"VHAT HAVE YOU 
FORGOTTON?'-:HPRINT(0.15),"A)PAI 
NT B>KNtFE C) HELMET" 
2050 ASS=INKEYS:1F ASS=""THEI205 
ELSE2Q60 

2060 IF A£$="C" THEN 2080 ELSE 2 
070 

2070 SOUND1,5:GOTO 2050 
2030 GOSUB2514:GOSUB2814 
2090 HCOL0R4,6:HPRINT<O,13)."VIL 
L YOU (H)0UNT OR <C)HECK" 
2100 A»=IBKEY$:IF A*=""THEN2103E 
LSE2110 

2110 IF AJ="C"THES2120ELSE2130 
2120 HPRIIfT (0,14) ."YOU CHECK YDU 
R BIKE & FIND" :GOSUB28S4; GOTO 21 
90 

2130 T=RND(3>:HPRINT(0,15),"YOU 
ARE RIDING ALONG AN AVENUE" : HPRI 
UU0.16VYOU MUST STOP SUDDENLY 

TYPE BRAKE" 
2140 A$=IBKEYS: IF AS=""THEN2140 
2150 IF AS="B"THEM2170 ELSE 2140 
2160 IFT<2 THEN2170 ELSE2180 
2170 HPRIBT(0,17)."Y0U FORGOT TO 
CHECK YOUR BIKE YOUR" : HPRiMT(0, 
18 3, "BRAKES ARE FAULTY YOU CRASH 
":G0SUB90:CR=CR+1:G0T0 2190 
2179 S0UHD1.23 

21O0 HPRIHT<0,17), M YOU NEARLY CR 
ASHED CHECK YOUR BIKE" : HPRI NT(0, 
IB), "BEFORE you ride U!";C=C+1 
2190 HPAIHT(1,150),1,2:HPRIHT(0, 
133, "Do you ride on left or rl«h 
t?" 

2200 A$=ISKEY*:1F A$=" , ' THEH 220 

2210 IF A5="L" THEH 2230 ELSE IF 

A$="R"THEH 2220 
2220 HPRUT(0.16),"You were hit 
by a car lucky you had":HPRIIK0 
,17), "a helnet":FORP=l TO 10: FLA 
Y"T25501AAAAAAAAAAAAAAAAAAAAV*": 
HEXTP: PALETTERGB: GOT02010 
2230 HPIU3T (0,16)," JUST ASVELL! * 
*A»Y KEY" A$=INKEY$:IF Ai=""THE» 
2230 

2240 HPAIST(1,150),0,2:HPRIHT(0, 
13). "PICK THE RIGHT AHSVER.YOU R 
IDE ":HPRIRT(0,14>,"A>ON THE FOO 
TPATH B)OH THE ROAD " : HPRIMTIO, 1 
5>,"C)DOUBLE FILE D)ON THE RIGHT 

2250 AQS^1HKEYS:IF AQ*=""THEN225 




2260 IF AQS="A" OR AQ$="CQ"OR AQ 
s="D h THEN GOSUB3164 ELSE IF AQ* 
="B" THEN2261 
2201 HPAIHT (1,150), 1,2 

2262 HPAINT(100,150),0,2:HFRIHT( 
O t 13),"YOU COME TO AS INTERSECTI 
ON" i HPA INT (200, 5) , 5, 2: HPR I NT <0 , 1 
5), "PRESS ANY KEY" 

2263 At=lNKEYS:IF AS-""IHEN22e3 

2264 VIDTH40: ATTR4, 2 : CLS6 : PRINT" 
YOU MUST PUT THE LETTERS Iff THE 
CORRECT ORDER IJI ORDER TO STOP" 

2265 PRIBT ,, A)TURN B> G1VEVAY OS 
IG8AL D)SLOVD0VN": IKPUT" 1="; JJ$: 
INPUT"2=";JH*: INPUT" 3=";JG$:ISPU 
T"4=" ;GDt: IF JJ$="D" ABD JH$="C" 

AMD JGS="B" AMD GD*= M A" THEM 22 
66 ELSE GOTO 2264 

2266 CLS:HSCREEN2;GOSUB2514:FORE 
T=l TO 3000: SEXTET 

2267 HSCKEEM0: PALETTERGB 

2268 VIDTR32:PM0DE 1, 1: PCLS3: SCR 
EEN1, l:DRAV'*BK130.1OO;C2uM0H4OL4 
OG40D4GK4OR4OE40U4O":PAIST(llO,9 
0),1,2 

2269 FORT-1 TO 2500; BEXTT; V1DTH4 
G:ATTR3,2:CLS:PRINT"AT THE EHD O 
F THE ROAD YOU SAV THAT SIGN VHA 
T DO YOU DO?" 

2270 IHPUT"A)GO STRAIGHT AHEAD B 
)GIVEVAY OST0P D)VAIT FOR TRAIN 

TO GO PAST";GG»: IF GGS^'C" THEM 
2271 ELSE SQUWD1,10 i IF GG$="A" 
THEK 3164 ELSE GOTO 2270 

2271 FORT=l TO 5:PRIMT" C O R R 
E C T M"!MEXTT:FnRR=l TO 1000: H 
EXTE 

2272 CLS:PRIBT"VILL YOU TURB LEF 
T OR RIGHT" ;F?E:CLS:PRIIT'TWO CO 
MMODORE USERS OH SKATEBOARDS APP 
ROACH Y0U":IB?UT"a>ride on footp 
ath b> Increase speed over limit 
C>take the short cut d>nothlns"; 
DCS 

2273 IF DC*="y OR DC$="C" THEM 
£275 ELSE 2274 

2274 PR I NT" UNFORTUNATELY YOU CRA 
SHED ";G0SUB8!; INPUT" YOU HAVE TO 

MAKE REPAIRS ON YOUR BIKE TYPE 
FIX";HHS:IF HH3="FIX" THEN 2275 
ELSE 2274 

2275 HSCREEN2:PALETTE0,52:HCLS0: 
PALETTE4 , 32 : PALETTE3 , 7 : HC0L0R4 . 1 
:HLIKEUO B 20)-<100, 160) , PSET, BF: 
HDRAVBM40, 20; C4E10R60G1 0E10D140 
G10":HPAINT(60,15).3.4:HPAIBT(10 
5,505,3,4 

2276 PALETTE5,19:PALETTE2,36:HCI 
RCLE(70 1 40),20,2:HPAINTC70,40>,2 
l 2:HCIRCLE(70,e5),20,2:HPAINT(70 
,85), 7, 2 :HCIRCLE(70,130).20,2:H 
PAINT (70. 125), 5, 2 

2277 HPRI KT<C ( 0), "press any key" 
:A*=INKEYJ: IF A5="" THEB2277 

2278 V1DTH40:ATTR4.2:PRIBT"YOU , V 
E COME TO A TRAFFIC LIGHT IF THE 

LIGHT IS RED YOU SHOULD A)STOP 
B)CONTIHUE": 1HPUT"";JJ$: IF JJ$=" 
B" THEH GOSUB3164 ELSE IF JJ*="A 
" THEM 2279 

2279 AS=RHD<70): PRINT" YOUR CURRE 
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ST SPEED IS ";AS "KKS": IF AS>60 
THEN 2280 IF T<60 THEH 2261 
22fl0 I NPUT" YOU ARE GOING TOO FAST 
TYPE BRAKE TC SLOW DOWS";JJS-IF 
JJS="BRAKE" THE82290 IF ELSE TH 
EH 2260 

2261 CLS:PRIHT"YOU ARE ONLY A FB 
V HUSDRED METRES AVAY FRO* THE F 
INISH'BUT YOU STILL HAVE TO PASS 
A FEV MORE THINGS YET": 1NFUT"DG 
YOU TURN LEFT OR RIGHT" ;FF»: IF 
FFS="R"THEN 2292 ELSE 2285 
2292 VIDTH32:PM0DBl.l:SCREESL.l- 
PCLS2:CIRCLEU28,96>.50.0:PAINT( 
128,96) .O.OiPALETTEC, 50: :C0LOR7, 

6:LINEU00 1 90)-<155,105>,PSET,BF 
2283 FORT=1T03000:BEXTT:VIDTH40: 
INPUT" DO YOU GO STRAIGHT AHEAD ( 
A) OR GO THE OTHER VAY CB>";GGS: 
IF GGS="A" THEN G0SUB****ELSE GO 
TO 2285 

2285 WIDTH32:PN0DE1,1:SCREE»1,1: 
COL0R2 , 7 : PCLS : P ALETTE6 . 38 : DR A V" B 
M50, 50 1 C2R 150C75H75F75DO0" : PA I NT 
<0,0).5,2 

2266 FORT=lT03000iHEITT:VIDTH40: 
CLS:]NPUT'THIS SIGH IS A A)STOP 
SIGN B>GIVEVAY SIGH OCROSSINC S 
IGF D)N0 ENTRY SIGH E)HO PARKING 
SIGR";JJ$:IF JJ$="B" THEH 2268 
IF ELSE THEN 2287 

2287 SOU»D1,10:PRIHT"VRONG PLEAS 
E TRY AGAIN": GOTO 2285 
2266 HSCREE*2:FALErTE0.O:HCLSG:H 
DRAW"BHO,100;C4E20R10D5E4E30F20E 
10F4R4F4E10R100E1QF10E10F20E10F2 
0ElOR50":F0REE=l TO 20G:A=RND<32 
0) : B-RHD<90) : HSET (A, B, 4) : NEXTEE: 
HLIBE<0,150>-<320 ( 150>,PSET;HPAI 

HT(O,110),2 r 4:HCIRCLE(20,20),15. 
6:HPAINT<20,2Q>,6,6 

2289 HPRIHTCO. 17), "Press any key 
":A$=IHKEYS:IF A»=""THEN2289 

2290 WIDTH40: PRINT" ITS LATE AT R 
IGHT WHAT DO YOU HEED OF THE POL 
LOVING": I NPUT" A) REFLECTOR B)L1GH 
T <FRONTftBACK> OBRIGHT CL0TH1HG 

D)ALL OF THE A30VE";HH$; IF HH$= 
"D" THEN2292 IF ELSE 2291 

2291 SOUHD1.10:PRI8T"VROSG TRY A 
GAIH":GOTO 2268 

2292 PRIHT"YOU ARE RIDING ALOHG 
A ROAD": I NPUT" TURN FIGHT OR KEFT 
";ZZ$:INPUT"YOU ARB RIDIHG ALONG 

A ROAD TURK RIGHT OR LEFT":ZX*i 
PR I IT" YOU'RE JUST ABOUT THERE! !" 
:IRPUT"RIGHT OR LEFT'; ZZ»: IF ZZ* 
="R" THEH 2293 ELSE 2294 

2293 PR I HT" YOU TOOK A VRQNG TURN 
":GOTO 2292 

229* HSCREEN2:PALETTE0,0:HCLS0:P 
ALETTE1 , 50 : FORSS=20TO300STEP20 : H 
CIRCLE(SS,l0>,4.1:HPAIMT<SS.i0) 1 
1,1: NEXTSS: FORDD=20TO300STEP20 : H 
CIRCLE<DD. 160) ,<, 1:HPAINT(DD ( 180 
>,l, l:«EXTDD:FORE=10T018OSTEP20; 
HCIRCLE<20,E) ( 4,l:HPAINT(20 t B>.l 
,1:HBXTB 

2295 FORCl=10TO180STEP2O:HCIRCLE 
<300,CI),4,liHPAINTt300,CI),l ( l : 
IEXTCI:FOPT=lTO10:PALETTEl ( 0:FOR 




B=1T0100:HEXTE:PALETT31,50:FORS^ 

1TO100: HEXTS: NEXTT: PALETTB3, 50: P 

ORCI=30TO270STEP15:HCIRCLE(CI,2O 

>.4.3:HFAIBT(CI,20>,3 ( 3:NEXTCI:F 

ORDB=30TO270STEP15 

2296 HCIRCLE(DE,170),4.3:HPAIHT< 

DE, 170) , 3. 3; REXTDB: FORUU=20TO17Q 

STEP15:HCIRCLE(30,UU>,4,3:HPAIHT 

(30. UU) , 3, 3 : NEXTUU : F0BWV=20TO170 

STEP15: HCIRCLE(290. VV; , 4, 3: HPAIN 
T(290, WW) , 3, 3 : NEXTWV: PALETTE4 , 15 

:HCOLOR4 1 5:HPRIBT(10 1 5),"ConRrat 
ulatloDB":PALETTE5,33 
229-7 HCOLOR5,4:HPRIRT<10,7>,''You 
•ve finished the"! HPR] IT (13,9)," 
adventure": F0RR*lTO30:PALETTEl, 
: PALETTE3, 50: FORTMTO50: NEXTY: PA 
LETTEl,50:PALETTE3, 0: F0RY=lTO50: 
REXTY:HEXTR: 

2298 FQRT=lTO4000;IiEXn:VIDTH40: 
ATTR3 1 2,U.B:PRINT"TESI!":ATTR2,1 

2299 IHPUT"QUESTiOHl";ABS: INPUT" 
0UESTIOR2";AC*: IKPUT»C3" ; ADS: INP 
UT"Q4";ABS:1NPUT"Q5";AFS:INPUT'Q 
5";AG*:IHPUT"Q7";AQS: INPUT"Q6";S 
SS: IIPUT"<J9 U ;FU$: ISPUT"Q10"; RT»: 

2300 'ROOM FOR QUESTIONS 
2303 'ROOK FOR QUESTIONS 

2305 !FAB$="X"THEH GOSUB3370: IFA 
C$= , 'X"THENGOSUB3370:IFAD5="X"THE 
IGOSUB3370: IFAE4-"X"THEHCOSUB337 
0: !FAFS="X"THEBGOSUB3370: IFAG»="- 
rTHENGOSUB3370: IFAQ*="r'THERGOS 
VB3370: IFSSS="X"THEHGO3UB3370: IF 
FU*="X"THENGOSUB3370:IFRTS="X"TH 
ESGOSUB3370 

2310 PR=XX/10*100:CLS:?RINT"COHG 
RATULATIONS YOU GOT ";PR "V 

2330 FRHU"PKKS8 ANY KEY" 

2331 A*=INKEYS:IF A*=""THEN2331 

2360 GOTO 340 

2361 G0TO2361 

2364 VIDTH40:PALETTERGB;CLS7:ATT 
K2.4:FORX*0 TO 39 STEP 2 LOCAtEX 
♦1. 0: LOCATEX, 1 : LOCATEX, 23: LOCATE 
IU, 22: PRINT"" ; : NEXTX: F0RU=3 TO 
21 STEP2:LOCATE0.U:L0CATEl,U-l:L 
0CArE39,U-l:LOCATE38,U:PRIHT"";: 
M-XTU: RETURN 

2414 GOSUB2364:PQ=PQU:LQCAT£4,l 
0:PRINT"1>BIKB FRAME 2JPEDALS A 
CHAIH 3)SEAT";:ATTR2,4:LOCATE12, 
7: PR I NT" WORD LIST"; : ATTR2. 4: LOCA 
TE4,ll;PRlir4)WIBBL 1 5)¥HEBL 2 
6)HANDLEBARS a "; : ATTE2, 4:LOCAT 



E4. 12: PR I NT" FORKS A GEARS ";:ATT 

R2.4:A**INKEYS 

2464 F0RA=1 TO 3000: NEXTA: RETURN 

2514 H?AIHT(0 1 0),7 1 2;T=RHD(65):I 

FT<10 THEN T-T+10 

2564 HPRIHTCO, 2), "YOUR CURREHT": 

HPRHTC0.3),"SPPPIV IS M rHPRUT<0, 

5>."KHS":HPRIBT<0,4J,T 

2614 IF T>60 THEN 2664 ELSE RBTU 

RN 

2664 HPRINT<0,6),"T00 FAST":HPRI 

■T<0 I 7) I «TYPB B" 

2714 AX»=IRKEY*:IF AX*=""THEH 27 

14 ELSE 2764 

2764 IF AXJ*»B" THEB RETURJ BLSB 

2714 

2814 PALETTEO t O:HPAINTUOO,120), 

0,2: PALETTE2 , : RETURN 

2864 R=RND(3):IFR-1 THEH 29U EL 

SEIFR=2 THEN 2964 ELSE IF R*3 TH 

EN 3064 

2914 HFRlNTtO, 15), "NOTHING WRONG 

": RETURN 

2964 HFRINTCO. 15), "A FLAT TYRE T 

YPE FIX" :AS=IHKEY»:JF A*=""THEH2 

964 

3014 IF AS="F" THEH RETURN ELSE 

S0UHDl.iO:GOTn 2964 

3064 HPRJNT<0 B 15),"SEAT NOT ADJU 

STED TYPE FIX":DS=INKEY»:IF D*=" 

"THEH3064 

3114 IF D$="F" THEH RETURN ELSE 

SOUND1,10;GOTO 3064 
3164 WIDTH40: ATTR3. 2, B: PRIHT"You 
have had the unpleasant experie 
nee of betnff killed by a senl-tr 
ailer" 

3214 ATTR2,3:INPUT"VOULD YOU UK 
E FLOWERS AT YOUR FUNERAL" ;S$: IN 
PUT-DO YOU VISH TO BE CERHATED 
R BURIE3";DD5 

3264 IF DD$="B"THEN3364 ELSE SOU 
ID1, 1: : IHPUr* WHERE WOULD YOU L1K 
E YOUR ASHES SCATTERED" ;GGS: PRIN 
T"VOUR FUNERAL WAS VERY NICE IND 
EED. YOUR ASHES WERE SCATTERED AT 
*'; GG$ 

3314 INPUT" DO YOU WART TO PLAY A 
GAI«"jJM:IF JU8-»Y" THEB2010 EL 
SE POKE65496,0:END 
3364 IBPUT"VHERE DO YOU VISH TO 
BE BUR I ED" ;GG*: PR I NT" YOUR FUNERA 
L WAS VERY NICE- YOU VERB BURIED 
AT"; GG$;COT0 3314 
3370 XX-XI+1: RETURJ 
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Isay,01dChap, 
Have\buH 



H<?llo, hello, hello! 
I've been here a month 

now, and I thought It 

would be a goud Idea to 

let you know who I am! 

I would 1 I ke to 

introduce myself to yau 
all as your one and 
only. . . - Tandy 1000 

editor! (and IBM stuff 
tool > 

Deon Is the name, I 
have been asked to Join 
the crowd here and work 
personally on your efforts 
more about the Tandy L000 




towards 
and IBM. 



learning 



One of our main ambitions is to make 
Soft go Id Magazine nore IBM compatible 

oriented. I had noticed, as a reader of 

Softgold, quite a few people writing in 
ashing for more and mote Tandy 1000 programs, 
but not a lot were printed each month. Being 
a Tandy 1000 owner I agree! So now, there is 
going to be a dramatic change! I am here! 

So. . . T1000 users, if you have anything, 
from gossip to software that you would like 
to share, please send it in to me. It you 
also have queries, problems or anything you 
would like to kno>w, [ will do ray best to gat 
you the right information. 

1 can be caught here during the week, or 



the Latest? 



f> 



J If you would like to send 
J Viatel messages to me, 
please do. You may ^end 
your messages on page 
*64213#, or mailbox 

7fi"ji001OO ut lu my ma 1 1 bux 
753517750. 

During my silent month 
here, I finally got 

GoLddisk number 1 fixed, 
Number 3 and 3 out and 
running - Golddisk number 1 
4 should be out sunn, too. 
Clt would be out sooner If 
I had more contributions from all the 

brilliant Tandy 1000 and IBM users!) 

Over my next few issues I plan to put some 
articles in about MS-DOS and BASIC. so if 
there Is anything you would lifae mo to cover 
first, please let me know! 

This month we feature an article on 
backing up disks, one of the most important 
things you should be capable of doing. 

There are always times when you accldently 
ruin disks. I know what it Is like. We do it 
all the time with Gertie (our Viatel update 
computer). Vhen she loses the bulletin board 
frames, (we can nearly predict when she will 
throw a disk to the durap> , the task of 
getting them back is now a nightly event! So 
if you are a beginner or experienced computer 
us«*r , the first thing to learn is to back up 
disks. 

Have fun! 



1000'S OF 
HINTS! 

(well a couple anyway) 

Th*re are two ways of erasing 
files off your disk. You can 

•=ith»>r type ERASE fiiename.ext 
or typp DEL f i 1 enarne. *xt And 
tiutli commands will do the same 
thing. PEL Is quicker to type 
<it's short for DELete). 

BOOKS 

Th«-re are two books I 

recommend If you would like to 
1 vat n more about your MS- BOS and 
how to organise your disks 
effectively. These two books 
tell you all about your MS- DOS 
disks which you received when 
you first bought your rnmputer. 

Volume one is called MS-DOS 
The Basics (cot no:25-1506) 

tells you all the little tricks 

you n«?ed to know about your DOS. 
This book will tell you about 
your US-DOS dis.ks In brief, so 
you can get started. 



Volume two is called MS-DOS 
Advanced Applications (cat 

no: 25-1507) goes into more 
detail about your DOS. 

cRecammendod rtfter you fr^ve 
finished and understood voltrae 
one!) Both baok-5 are available 
from most Tandy stores. 



"What are all these names on 
ray MS-DOS disk" a question many 
people have asked roel 

Well here Is a brief summary 
of the oiies which will be 
useful to you. . . 

ANSI. S!TS - is a device driver 
which means 1 t is loaded In when 
you first start your computer. 
It enables you to change colours 
on the scroen and change the 
keyboard to suit your 
requirements. 

AFPEND.COM - searches 
directory* foi file*. If you 
don't u*se any parameters. It 
will dlspley the current path 
(Which pavt of thP disk you are 
using) . 

ASSIGN.COM - This program 
enables yau to ' force' Ihe 
computer to read a dl<sk drive. 



For example when you :=ay DIR B: 
you can actually program it to 
glvQ •> DTRoetcxy of As 

ATTKIO.EXE- Enob 1 cs/dl sables 
the READ ONLY attribute which is 
pur. with filenames. For example 
you --'an raako files on the disk 
read-only =o you don't erase 
them. 

AUTOEXEC.BAT - A BATCH 
progirtm which Is Automatical 
EXECuted when tlie computer is 
turned an or reset, 

BASICA. EXE 

BAE1C.COM - Program that 
allows you to raake BASIC 
programs. 

OHKDSK.COH - A utility which 
CHecKs DISKs li*r ur,ag'* and free 
space, win ols.Q fix up faulty 
directories and f I i*» allocation 
tables. 

COKHAHlvCON - COMMAND-* the 
computer as to wh.^t to do n*xt. 
Clhls is required when you first 
turn thp computer an ax ros«t 
it. ) 

DEBUG. COM - A utility which 
enables yau to modlly memory and 
disks. 

DISKCOMf.COM - DISK COMPare. 
Compares two disks and reports 
*ht?re dii lerericsea. 
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BACK 

TO 



The most Important thing you 
ever do with any eoaputer la 

BACK t/P the software!! 

I put that in capital letters 
because so many computer users 
'accidentally erase their 

master disks. 

Vhenever you buy *ny software 
(tape or disk), make sure you 
have ample tapes or disks to 
take copies of your programs, 
just in case something goes 
wrong (and it will In your 

computer using life!!) 

When I was working for Tandy, 
(and even now working for 
Goldsoft), 1 hod eoroe 

unfartunate people say they have 
had problems with the software 
they have bought. They would 
bring in their master disk with 
one or two or all (!) of the 
most important files 

accidentally erased! (Someone 

had accidentally formatted their 
MS-DOS disk! ! > 

Making backups of your disks 
does a number of things for you! 

I- It eaves you the 

embarrassment of going in and 
'■:*='-.>.; told Cin a poli-te **ay> 
that you are a fool for not 
backing there up (not that we'd 
say it quite like that at 
Goldsoft* > 



1. Make sure you have a 

spare disk (brand new disks or 

ones you won't be using again) 
for each backup 

For example, if your software 
cones with 6 disks, make sure 
you have AT LEAST 6 disks to 
nake your copioc 1* la 

probably a good Ldea to have one 
or two more, because some 
software requires a data disk, 
which normally isn't supplied. 
(When you purchase the software 
and the salesman asks you if you 
have you any blank disks, don' t 

think of It as a sales pitch, he 

or she Is making sure ycu have 
enough blank disks to make 

copies of the programs ycu have 

bought) . 

Here are some terms, which 1 

think should be made clearer 

before 1 show you how to back up 
your di<sks: 

USER DISK - is your everyday 
disk which you use without any 
wor ry If you do accidentally 
eiass It. 

MASTER DISK - This le the 
disk which comes with your 
particular software package. 

This is really only there to be 
used Lf your user dtsk(s) crash 
and become unusable. When you 



BACK 

UP 



BY 

DEON GEORGE 

46 



2. It saves you the worry of 
not getting the wnrk done or 
ewer, trying to figure out what 
you have done! 

3. It saves you time, since 
you can fix the problem by 
copying the master disk again. 

One thing to ramenber. If 
you think you may have done 
something wrong to the computer 
and the software doesn' t run 
properly. try getting the 

original and recopy the programs 
and start again. It does 
help. . . when you get totally 
stuck, then call for hejp! 

A good thing to remember is 
keep an eye on the screen 
whenever you push any button and 
see 'what happens next', because 
a good program will tell you If 
you have done something wrong - 
or will pre-warn you if it is 
going to do anything drastic, 
usually it will also prcmpt you 
what to do next. 

The procedure to backup your 
disks (whether they are your 
brand new master disks, your 
MS-EOS disk. Deskmate disk, or 
your every day work disk) is as 
follows: 



use this disk all you do is copy 
tha infer nation over to a USER 
disk and put it away again (In a 
safe placet ) 

DATA DISK - is normally a 
disk set up to have Just data on. 
It for a particular software 
package. For example having a 
list of names and addresses, 
letters, worksheets, etc 

BACKUP DISK - is used to 
backup data so lf you 

accidentally crash or erase your 
DATA dlski you can copy the 
information back on to your DATA 
disk. (This saves you the hassle 
of retyping those letters, or 
names and address which you have 
been putting in over the 
months! ) This disk is used the 

same way as a master disk, 

except that normally a DATA disk 
is backed up on an every day 
basis, ■-i.-r: ■.: 03 a master dl&k 
you NEVER write data to! 

2. Get your copy of your 
MS-DOS disk (If you haven't 
backed it up already, we shall 
do so now!). Alrso get your new 
disks arid master disk. 

3. Decide whether you have a 



two disk drive system, or a. one 

disk drive system. (I know this 

shouldn't be too hard.!) I will 
tell you how to back up using 
both system's. 

4. Remember that your bottom 

dish (on the Tandy 1000, and 

most computers) is called drive 
A: and the top is called (if you 
have one> B; If you still are 
unsure, the A: drive is the 
drive which lights first when 
you turn your computer on. 

5. Turn on your computer (as 
you Nould normally and If you 
don' t know refer t3 your 
operation manual), put in the 
MS-DOS disk to get the computer 
going! It may ask for the date 
and time. Put in the date If 
you wish, but otherwise press 
enter. tfait for the A> prompt 
to appear. 

6. Put a new disk In drive 
B: (this new disk will be 
TOTALLY erased, so if you are 
going to put in an old disk. 
make sure it Is one that is SOT 
requited any longer! > If you 
only have one disk drive keep 
your new disk in your hand for 
now! 



and put in the new disk and 
pi ess the appropriate lcey to 
continued the copy. You shall 
be prompted to swap the disks 
until the copy is complete.) 



Vhen the copy is complete, 
take your MASTER disk and put it 
away, for safe keeping. 

A few other terms which you 
may come across which may 
confuse youl 

MS-DOS: this Is the disk 

which your computer needs for 
start up. Like a car needs 

petrol for the engine to start, 
the computer needs 3 files off 
this disk (two are hidden and 

Die third called command . cum) to 
get the oonputer up and running. 
The&e 3 programs tell the 
computer how to work! ) 

DISKCOPY: a program found on 
your MS-DOS diskette which 
enables you to copy the contents 
of one disk to the other. 

DIP.! is the command to get a 
DIRectory of what is on a disk. 
D1R B: will tell you what Is on 
drive R: . MP A: will UN ynu 
what Is on drive A: and plain 
D1R will tell you what is on the 
drive you are using. To swap 



The most important ste p you 

can do , with any computer, 

is to back up the software! 



7. Type DISKCOPY A: B: 

CENTERS (even if you only have 
one disk drive!) 

6. Make sure the MASTER disk ' 
Which you are going to copy has 
a write protect tab on it. (This 
piece of tape goes over the slot 
which has been cut on the right 
side of the disk. This will 
stop any Information being 

written to the disk. (Same 

system as a cassette. > 

9. Vhen the screen prompts 
you for a SOURCE disk in drive 
A: put in the MASTER disk you 
want to copy. (If you haven't 
backed up your MS-DOS disk, "-we^ 
shall do it now so leave It in 
the drive). If you have a 
second disk drive put the new 
disk In drive B: . If you 
haven't don't worry. Just yet! 

10. Press the appropriate 
key to start the copy (normally 
<Elf7ER>) This copy program will 
copy the contents of disk drive 
A: to the contents of disk drive 
B: ( If you hove only one drive, 
after a short while the computer 
will prompt for the TABGET disk 
to be inserted into disk drive 
A;. Take out your MASTER disk 



drives Just type the drive name 
CA; , B: , C; , at* if you have 
drives C; onwards) and <EBTER> 
and the new prompt tells you 
what drive you are using. 

COPY: is a command which you 
use to copy single files from 
one disk to another. Vhere as 
DISKCOPY copies the entire disk 
from one to another. The format 

. for this Is: 

' COPY diflinam. eKt d:filnam. ext 

wh«re the first d: f Unan. ext 

i-s the program to copy and the 

second, where to copy it tc and 

what name tb give It. 

If there is anything you feel 
I haven't covered or you would 
like to know a little more about 
something else, or even If you 
don't know about something and 
you would like me write about it 
next month, please address your 
letters toi 

DEON'S DESK 

GOLDSOFT PUBLISH I KG 

P0 BCX 1742. 

SOUTHPORT QLD 4215 

or leave a message on Viatel 
number 753517750, 755100150 or 
page number *64213# 




by Sierra 

Minimum Memory:256K 
Requirements.CGA 
IBM or Compatible 

Cost;$69.95 

Available from 
GOLDSOFT 



Veil at first, I wasn't 
overly 1 ■pressed! I had played 
with it before for a few minutes 
and It didn't conpare at all to 
Cpaca Qu-_- .? oi Laleiuiv SulL 

Larry. But, I persisted) 

Klng'e Quest cornea in your 
everyday software presented box. 
In the box there are two dleks, 
a well presented Introductory 
booklet and a catalogue. 

Beading the Introductory 

booklet was, lor once, worth the 
ten nlnutes it took. It gives 
you a brief Introduction on the 
scene and what you are out to 
achieve. 

Poor King Edward has had a 
few bad years and you being hie 
number one knight are given the 
task of recovering all hie past 
treasures. The mirror that 
reads the future, a shield which 
always give you victory In 
battla and the naglc chest of 
gold. 

Another convenient thing 
about all Sierra adventure games 
Is the ability to use back up 
disks when playing the gane. 

Even though the originals are 
copy protected, you only need 
then to etart the gams. Once 
the computer hae verified 

orglnal, you may put in your 
backed up dleks ami play. 

Once I got into the game, I 
had to be dragged off! Et wasn't 
as boring as I had first 
Imagined. Although I nuet say, 
everything has been pretty easy 
so farl 

Through the adventure, you 
com* across a few familiar 
characters from stories he-rfrd 
when you were young! There Is 
th« witch with the ginger bread 
house. A gnome with a gold key - 
and you must guess hie name! 

With 1Mb In wind, I would 
recommend this piece of software 
to your children. If you feel 
your children are able to act as 
the character and question the 
computer to get solutions then 
by all means give tham a got 
It's a great way of getting tham 
'out of the way' for a few 
hours, or even yourself ( 

Out of ten I would give It an 
eight and a halfl I thought it 
was very enjoyable, but still I 
do think Leisure Suit Larry and 
Space Quest are a lot better. 
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OUTSTANDING SOFTWARE 

For IBM PC's and Compatibles 



last FREE-SOFT ® International is here! We have more lhan 900 
programmes in our International library, you can get any disk for SI 2, and if you 
Join FREE-SOFT NETWORK (8 it will be $10 only per disk! plus getting our 
SOFT-LINE <$ Newsletter., full of tips lo help you gel the most out of your PC! 
plus receiving regularly our SUPER-SOFT <$ sheet listing in details the best 10 
software programmes available In our library! plus SPECIAL PRIVILEGED 
STATUS ® .. you will have advance access to the latest Public Domain and 
User-Supported software programmes before its release to the public! plus having 
24 hours, 7 days hot line to order from! Membership in the NETWORK is 
$39 annually! So, may we say.. WELCOME to the world of FREE-SOFT. 



# 0125 PC-PROKESSOR — Your computer 
will leach you all about BASIC 
programming in colour! 

# 0180 rt-TU I OK — Tutor will teach you 
all what you need to know about Your PC 
and its DOS! 

¥ 1000 PC-WRITE + — Super word 

processor, comes in 2 diskettes, this is 

part I, full-featured package with 55000 

word dictionary in colour, even support 

a. Laser printer. 

¥ 1001 PC-WRITE + — Part 2 as above. 

#0054 SIDE-WRITER— It will allow your 

printer to print SIDEWAYS on paper! 

a must for lotus users! 

ff 0051 E2-FORMS — allows you to 

generate masier forms tailored to your 

need. Super Tor business. 

# 0O28 PC-MUSICIAN — Great 
programme, you can create and 
play songi on your PC! 

# 1003 PC-FILE + — Just when 
you thought PC-FILE couldn't 
get any better File + create 
new standard in Database 
manager, curncs in 2 diskettes, 
this is part I, it is easier, faster 
and more, . . more powerful. 
¥ 1004 PC-FILE + - Part 2 
as above. 

#0130 PERSONAL FINANCE 
MANAGER — Good personal 
accounting system. You can keep track 
o( all household money matters from 
Cheque account to Investments. 

# 0148 PC-TOUCH — Your Computer will 
be your typing tutor, let you go at your 
own pace and keep track of how wcil you 
are doing. 

# 0147 SLIDE — Images can be created, 
edited, saved, displayed and printed using 
the programme. Handy for Disktop 
Publisher. 



SPECIAL 
ANY 

5 DISKS 
PLUS 

1 YEAR 

MEMBERSHIP 

ONLY 

$39 



0172 THE LIBRARY for l<ifus — 20 

Super worksheets for lotus 123, from 
Cheque Book balancer. Cash Flow Manager 
to New Venture Budget! 
K 0197 HARD DISK UTILITIES — Super 
collection of Hard disk Utilities from a 
utility tells you which files have not been 
backed up to the one helps you create sub- 
directory no one knows about hut you! 
0174 KID'S WORD PROCESSOR — 
Excellent word processor written for 
Children (and adult too!) in super colour 
and sound, fcaiures graphic menus and tfie 
lot! 

0175 PC-DRAW #1 — A must as a part 
of your Desktop Publishing Library, it is n 

combinaiion of programmes, providing 

keyboard, screen drawing, graphics 
printing and slide show capability. 
0176 PC-DRAW I — A selection 
of drawings and pictures made by 
PC-Draw II, plus a super slide 
show, you must have PC-DRAW 
#1 lo be able to use it. 
#0291 PROCOMW - The 
professional communications 
programme, if you have a 
Modem then you need Procomm. 
, 0046 PTROOPER — A game, in 
Super Colour, keep the invading 
paratroopers from landing in your 
country! 

0O49 PC-CHESS - Very good Chess 

game, you can play against the computer 

or a friend! 

0065 AFGHAN-WAR — Good WAR 

GAME, in colour based on Afghanistan 

War. 

0157 LANDER — In excellent graphics 

and colour, can you land a space ship on 

a pad without crashing? 

0E65 SPACEWAR — Arcade game in 

colour and graphics, combines the best 

features of Astciods and Startrck with a 

few tricks of its own! 



YES! 



I want the best! Send me my MEMBERSHIP KIT in FREE-SOFT 
NETWORK ®> , plus the following diskettes, (write caialogue of any FIVE of the above list) 

At your SPECIAL OFFER for """""7'"""'""""" .'.'" 539 

Plus, postage & handling $ 3 

(if you want more than five diskettes, just add for each extra diskette (10) 

As per D My Cheque D Bankcard D Visa D MasterCard D Am. Express 



Card No Exp. Date 

Signature Name.. 

Address Sub 

State Postcode 



Phone 



Post to . . (No stamps Needed) . . . FREE POST No. <l), 

Or by using our 24 hrs, FREE-SOFT International, 

7 days a week, P.O. Box 398, 

HOTLINE (03) 859 4697 NORTH BALWYN, VIC. 3104. 




FREE-SOFT 
LIBRARY 





*- By Leigh Dawes 



Children will always have to 
learn our traditional number 
system. A calculator Is 

useless, unless one knows the 
number system. 

Ve usually learn to count, by 
repeating the counting sequence. 

A chjid would probably learn to 

count to rive by counting from 
one to five repeatedly until 
they can recite tliem by heart. 
Then, they will do the same 
thing with one through to tan, 
then twenty, until they realize 
that our number system Is 
decimal (base 10). 

"Join The Dots" la a 

traditional game of pencil and 
paper. whereby with the dots 
alraady marked, the participant 
Joins all the dots together to 
eventually draw a picture. 
Usually, the first number Is one 
and the lost number varies 
according to the picture. 

One day I was watching Jackie 
try to diaw o "Dot to Dut", and 
I realized the potential for 
children to pi act ice the number 
system at on early age using 
computers. The outcome was the 
program named "DOT", 

"DOT" allows a random 

selection of do-ts or a file 
selection of dots. In the random 
selection, the computer asks you 
how many dots the child would 
like to play with, and the 

response from you is the maximum 
number of dots to be displayed. 
The computer will randomly 
display dots on the screen and 
the child will enter the number 
of the current dot . This being; 
successful, the computer will 
draw a line between the relevant 
dots. This will continue until 
the maximum number selected by 

you <or your cpild> is reached. 

In the file selection, the 
computer loads a file and uses 
this file to determine what must 
be set up on the screen. These 
files are created prior to the 
child playing with th» program. 
Up to nine files are used to 
determine what picture you want 

displayed to the child. 

These files have the 

extension of . PIC and are 

created before the program is 
run. As mentioned, the user can 
have up to 9 of these files, 
starting from PtCl.PIC, then 

PIC2.PIC, and eventually, 

PIC9.PIC. 

The way to create these files 
are easy, Your screen should be 
made up of 640 pixels across and 
200 down. The program usee 
pixel number 3 to 500 across and 
from pixel number 8 to 177 down. 
This means that no coordinates 
roust be out of this range. The 
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coordinates of 6,8 would be on 
the top left hand of the screen 
and 550,177 would be on the 
bottom right hand of the screen. 
These would be written in a file 
as iollows: 8 8 550 177. 

Instead of commas seperating the 
numbei 6 we only need a space, fl 
8 550 17? would draw a line from 
the top left hand corner to the 
bottom right hand corner. The 
program needs at least one of 
these files created to use the 
file selection mode. Vith no 
file present, only the random 
selection rootle may be used. 

To create type as follows I 

COPY COH PIC1 . PIC 

100 49 100 130 300 130 300 40 

110 40 <Ctrl z> <CR> 

COPY COH PICS. PIC 300 20 80 

130 300 130 520 130 310 20 

<Ctrl z> <CR> 

Note : <Ctrl z> means while 
pressing the control 
key, press the letter 
z. <CR> means the 

enter Or return key. 

Using this method you can 
moke the other 7 files as 
n^ede'l Th* filoc contain pairs 

of coordinates. The X 

coordinate first then the Y 
coordinate. Using this method 
creation of a .PIC file is easy. 
Once these files are created you 
can run the program "DOT" for 
the child. They think It is a 
game but in reality, they are 
practicing to count. 

I hope you hove as nuch 

success with this program for 
yuui <jlilld e&( I did with my cwn. 
I found that I could leave 
Jackie by herself with little 
problems. 

Here are the other seven 
files I had ray daughter 

practicing on. 

COPY COH PIC3<PJC 

300 20 200 130 420 50 180 50 
400 130 310 30<Ctrl zXCR> 

COPY COH P1C4.PIC 

300 20 160 90 300 160 4-40 90 
310 25<Ctrl zXCR> 

COPY COH PIC5.PIC 

305 20 340 40 340 60 320 60 
360 73 400 70 440 90 440 110 
400 130<CR> 

360 130 310 110 360 160 220 
160 250 110 220 130 180 130 
140<CR> 

110 140 90 180 70 220 70 260 
80 240 60 240 40 275 20<Ctrl 
zXCR> 



COPY CON PIC6. PIC 

305 60 340 40 380 20 420 20 
460 40 460 50 440 80 420 100 
300<CR> 

120 340 130 290 150 240 130 
200 120 160 100 140 80 120 60 
120 40<CR> 

160 20 200 20 240 40 275 
G0<Crtl z><CR> 

COPY COM P1C7.PIC 

305 20 340 40 380 60 420 80 
440 100 440 120 400 140 360 
140 320<CR> 

120 340 150 360 170 28 170 
220 170 240 150 260 120 220 
140 180<CR> 

140 140 120 140 100 160 80 
200 60 240 40 275 20^Ctrl 
2><CR> 

COPY COB PICO. PIC 

275 50 350 50 400 50 500 50 
500 100 500 150 400 150 350 
150 300<CR> 

150 250 15G 200 150 100 150 
100 100 100 50 200 50 250 
50<Ctrl z><CR> 

COPY COH PIC9.PIC 

305 30 340 30 380 50 420 70 
420 100 420 120 380 140 340 
16 0CCR: 

305 160 275 160 240 160 200 

140 160 120 100 100 160 70 
200 50 240<CR> 

30 280 30<Ctrl z>(CR> 



Try creating your own little 
pictures for your child. When 
the player Is practicing 

counting, he/she will start from 
one and continue until a maximum 
number is encountered. When one 
Is entered no line will be 
drawn, but lines will be drawn 
from two onwards. Originally, 
the program started from two, 
out is that a way to teach a 
young child the number system. 
I promptly Altered It to start 
from one. 

Once you have the program 
running. try modifying the 
program. Normal lv, the computer 
displays from dot 1 to dot N 
(where H is the maximum set). 
Imagine that N was dot 10. 
Instead of displaying and 

receiving do^ numbers 1 to 10, 

try to modify the program so 
that it will" display from 35 to 
44 or 51 to 60, maybe at random. 
This will give the child some 
more practice. Another thought 
is instead of incrementing the 
count by one try to increment 
the count by 5 or 8 , etc. I'll 
leave this to you. 

Happy Computing. 

by Leigh Dawes 

(051) 745552 for questions 

and comments. 
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<su-,r+,c-> 

< Join the dots. A good counting game. > 
program JOt MOOTS (Input, Output, Inflle); 
const 

MINDOT = 1; KAXDOT = 40; (maximum number of dots in random mode) 

LINEVIDTH = 80; {Screen width) 

BELL ■ 7 i <ASC11 code far bell) 

COLOR - 5; (Color of foreground) 

MINX =8; MAXX = 550; (coordinates) 

MINY = 8; KAXY = 177; 

HAXFILB = 9; (number of picture files available) 

type 

STRLINEVIDTH = string C LINEVIDTH] ; 

D 0TS = array [ MINDOT. . KAXDOT1 of INTEGER; 
var 

DOTX, DOTY | DQTSj 

CHOICE, FILENO, 

MAXDOTNUM, ERROR, 

CURDOT, DOTCOUNT, 

LASTDOT, XCORD, YCORD | INTEGER; 

GAMEOVER, FINISHRT) : 3QOLEAN; 

( Clears the screen. Swap CLRSCR to whatever is 

appropriate on your machine. ) 

procedure CLEARSCREEN; 
begin 

CLRSCR <non standard pascal. This clears the screen) 
end; (CLEARSCREEN) 

( Increments NUMBER ) 

procedure INC Cvar NUMBER : INTEGER); 

begin 

NUMBER := NUMBER -f 1; 
end; (INC) 



< Prints a character COUNT times.) 

( * Recursive * ) 

procedure STRINGPRINT (COUNT : INTEGER; 

CHARACTER : CHAR); 
begin 

if Count > then 
begin 

WRITE (CHARACTER); 

STRINGPRINT CCQUH X - 1, CHARACTER) 
end; (else) 
end; (STRINGPRINT) 



i Outputs a number of blank lines according to LINES ) 
procedure STEP (LINES : INTEGER); *«*»* " i,ijuu>. j 

var 

COUNT : INTEGER; 

begin 

for COUNT := 1 to LINES do 

VR ITELN 

end; (STEP) 

» 

( Print INST3ING in the centre of VIDTHLITIH > 
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procedure CENTER UNSTRING {input) : STRL INEVIDTH; 

VIDTHLINE {input) I INTEGER); 

var 

L : INTEGER; {This is our tempory variable) 

begin {CENTER) 

L := LENGTH <l»STRIMO>; {What, is the length of our string) 

L := L div 2; <Vhat is the centre) 

VIDTHLINE := WIDTHLINE div 2; <Find out what is half of the linewidth) 

L := VIDTHLINE + L; <Vhere is the last character position) 

VRITELN UNSTRING :L) {Now print the string) 

end; <CENTER) 

{ Get number from keyboard ) 

procedure CETNUM (var NUMBER (output) : INTEGER); 

var 

NUMSTR : string 141 ; 
begin 

READ (NUMSTR); < Read a string from Input ) 

VAL (NUMSTR, NUMBER, ERROR); { Convert it to a number ) 

end; <GETNUM) 

{ Introduction to program called "DOT" > 
procedure INTRO; 
var CH : CHAR; 

X. Y : INTEGER; 

{ Draws diamond shape.) 

procedure DRAVDIAMOND (X, Y -(input) ; INTEGER); 

const 

HEIGHT a 10; 
COLOR = 5; 
begin 

DRAW <X - HEIGHT, Y, X. Y - HEIGHT, COLOR! 
DRAV (X, Y - HEIGHT, X + HEIGHT, Y, COLOR) 
DRAW (X + HEIGHT, Y, X B Y + HEIGHT, COLOR) 
DRAV (X, Y + HEIGHT, X - HEIGHT, Y, COLOR) 
end; {DRAVDI AMOND) 

begin 

CLEARSCXEEH; 

HIRES; (Get hi resolution screen) 

STEP (5); {print some blank lines) 

CENTER ("JOIN THE DOTS ver 1-3*, LINEVIDTH); 

STEP (2) ; 

CENTER Can educational game for Jackie Dawes' , LINEVIDTH); 

STEP (5) ; 

CENTER <'By Leigh Dawes', LINEVIDTH); 

CENTER (' <C>opyright 1967', LINEVIDTH); 

CENTER ('(051) 745552 for questions or comments. ', LINEVIDTH) 

STEP (2); 

CENTER {'Press any key to continue!!*, LINEVIDTH); 

{ Draw the diamond shapes ) 
X := 20; 
while X < 620 do 

begin {while) 

DRAVDIAMOND <X, 175) ; 
DRAVDIAMOND (X.15); 
X := X + 10 
end; {while) 
Y := 15; 
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while Y < 178 do 

begin (while) 

DFAVDIAMOND (20, T>; 
DRAVDIAMOND C620.Y); 
Y := Y + 10 
end; {while) 
READ (KBD, CH>; < Valt for keypress ) 
end; < INTRO) yP 

< Set the screen according to random or file choice > 
procedure SETBOARD (CHOICE : INTEGER; 

var FILENO : INTEGER) ; 
var 

VITHINRANCE i BOOLEAN; 

< Create the random dots ) 
procedure CREATEDOTS; 

var 

XPOS, YPOS, 

LASTX, LASTY, X, Y, XVIDTH, YVIDTH, COUNT , INTEGER; 
begin {CREATEDOTS) i»w**i 

< Initialise some variables ) 
XVIDTH := MAXX; YVIDTH := MAXY: 
X == 1; Y := 1; 

< Prepare gi*aphics screen ) 

CLEARSCREEN; 

H1RES : <Get hi resolution screen) 

< Draw dots on screen ) 

for COUNT := MINDOT to MAXDOTNUM do 
begin (for) 

LASTX := X; LASTY := Y; 

repeat 

X := RANDOM <XWIDTH>; 
Y : = RANDOM (YVIDTH); 
until (CABS (LASTX - X) > 5) and CABS (LASTY - Y) > 5) ) and 
C(X > MINX) and (Y > MIMY>>; 

E S358 i: I; ! s — - — > 

DRAV (X.Y.X.Y, COLOR,; { Draw the d J j 

< Print the number to the screen ) 
XPOS := X DIV 8; YPOS := Y DIV 6; 
GOTOXY ( X div 8, Y div 8); 
WRITE (COUNT) 
end (for) 
end; (CREATEDOTS) 

< Get dots from a file ) 

procedure GETFILE (var FILENO : INTEGER) • 
var ' 

XPOS, YPOS. 

iiSlEfe : A !eXT; X ' Y ' XVIDTH ' YVIDTH ' C0UNT : INTEGER; 
FILENAME : string [ 12] ; 
TEMP : string [2J ; 
begin (GETFILE) 

< Initialise some variables > 
XVIDTH := MAXX; YVIDTH ;= MAXY; 
a ; — 1 ; 

* •■= l: 
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COUNT := 1; 

{ Prepare screen ) 

CLEARSCREEN; 

HIRES; <Get hi resolution screen) 

{ Prepare next file to load > 

STR (FILENO.TEKP); < Convert file number to string > 

FILENAME := PIC + TEHP + •'.PIC; C Create file name > 

INC CFILENO)- < Reaay ^ lle number for next file ) 

if FILENO > MAXFILB then < Check for maximum file number 

FILENO := 1; 
ASSIGN UNFILE, FILENAHE); 
<$I _j < Switch error handling off ) 

RESET UNFILE); « Open file for input > 

<$ l +> < Switch error handling on > 

if loResult = then < 2ero neane no errors > 

begin 

while not EOF UNFILE) do 
begin {for) 

LASIX := X; LASTY := Y; < Save present coords ) 

READ UNFILE, X. Y) 

DOTX [COUNT] : = X 

DOTY E COUNT] := Y, 

DRAW (X.Y.X.Y, COLOR); < Draw dot an screen 



< Read coords from file) 
{ Save Coords in array > 



< Print dot number on screen > 
XPOS := X DIV 8; YPOS := Y DIV 8j 
GOTOXY < X div 8, Y div 8); 
VRITE (COUNT); 
INC (COUNT) j 
end; {for) 
MAXDOTNUH := COUNT - 1; 
CLOSE UNFILE); 
end <if no I/O error) 
else 

if TEMP = ' 1' then 

FILENO := { Show calling procedure that no files exist) 

else 

begin 

FILENO := 1; < Reset fileno to first file ) 
GETFILE (FILENO); { and call again ) 
end; Uf) 
end; {GETFILE) 

begin {SETBOARD) 

if CHOICE = 1 then 

< Random picture selected } 
begin 
repeat 

CLEARSCREEN; GOTOXY (1.24); 

VRITE ('Enter maximum number of dots. (', 

MINDOT + 1, , -\ HAXDOT,') i '5; 
GETNUK (MAXDOTNUM); 

GOTOXY (1,24); i Position cursor ) 

STRIHGPRINT <80, » '); { Blank line > 

VITHINRANGE := (MAXDOTNUH > HINDOT) 
and (HAXDOTNUM <«=> MAXDOT) 

and (ERROR = 0); 

if not VITHINRANGE then 

VRITE (CHR (BELL)); 

until VITHINRANGE; 

CREATEDOTS {choose coordinates and put in array) 

end 
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else 

< File picture selected 
GETFILE CFILENO) 
end; <SETBOARD> 



< Prompt user for dot number and accept from keyboard > 
procedure GETNUMBER (var CURDOT (output) : INTEGER) • 
var VALID : BOOLEAN; 
begin <GETNUMBgR> 
repeat 

GOTOXY <1,24>; 

VRITE ('Enter dot number ; ')■ 
GETNUM CCURDQT) ; 
GOTOXY CI, 24); 
STRINGPRINT (80, ' ■ ); 
VALID := (CURDOT >= KINDOT) and 
(CURDOT <= MAXDOT) and 
until VALID; 
end,* (GETNUMBER) 



< Position cursor 

< Prompt user 

< Get number 

< Position cursor 

< Blank line 

(ERROR =0): 



< Join dots with a line ) 

procedure JOINDOT (LASTDOT, DOTNUM < input) 
begin 

DRAV (DOTX [LASTDOT3, DOTY t LASTDOT) 
DOTX CDOTHUK3 . DOTY C DOTNUM 3 
COLOR) 
end; (JOINDOT) 



INTEGER) i 



i^SS^Ait^^ Same iS re< l ulred - returns true game to continue ) 

Junction CONTINUEGAME : BOOLEAN; 

var 

CH : CHAR; 

DONE | BOOLEAN; 
begin 

GOTOXY (1,24); 
STRINGPRINT (80, ' * ); 

WRITE (' Another game ? (Y/N) *>• 
repeat ' 

READ (KBD, CH); 

CH :- UPCASE (CH) ; 

DONE := (CH = • Y' > or (CH = 'N'>. 

if not DONE then 

VRITE (CHR (BELL) ) 
until DONE; 

CONTINUEGAME ; = CH = ■ Y' 
e nd ; <CQNT I NUEGAKE ) 



< Blank line) 

< Get character from keyboard > 



< Get choice of random or file dots.) 
function GETCHOICE : INTEGER- 
var ' 

ERROR, CHOICE : INTEGER; 
CH : CHAR; 
begin 

CLEARSCREEN; 

VRITE CI. Random or 2. Pictures 
repeat 



'>i 
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READ (KBD.CH); 

VAL (CH. CHOICE, ERROR); 
until (CHOICE in 11.-23) and (ERROR 
GETCHOICE := CHOICE 
end; <GETCHOlCE> 



= 0>; 



< Use different seed for random function.) 

procedure RandomizeKachine; 

begin 

RANDOKIZE; < Use appropriate randomizing statement ) 

end; (FandooizeMachine) 



begin {JOINDOTS) 

Randomi z e Kach i ne ; 

{ Set file number even though there may be no files ) 
FILENO := RANDOM (MAXFILE) + 1; 

< Display opening screen > 
INTRO; 



repeat 



Random or file selection > 
Display dots ) 



Initialize LastDot 
and DotCount 



< Check user number > 

< with the current > 

< dot number and 

< warn user if 

< number not in 

< not in sequence. 



CHOICE := GETCHOICE; < 

SETBOARD (CHOICE, FILENO) ; < 
if FILENO <> then 
begin 

LASTDOT := MI NDOT; < 

DOTCOUNT := MI NDOT; < 

repeat 
repeat 

GETNUKBER (CURDOT) ; 
if CURDOT <> DOTCOUNT then 
begin <if> 

WRITE (CHR (BBT,L>>; 
GOTOXY (1,24); 
STRINGPRINT (80, 
GOTOXY (1,24); 
WRITE ('The next number is 
DELAY (1500); 
GOTOXY (1,24); 
STRINGPRINT (80, ' ' > 
end <if) 
until CURDOT = DOTCOUNT j 
JOINDOT (LASTDOT, CURDOT); 



< Prompt and get user number ) 



• >; 



DOTCOUNT) | 



< Join the last dot with the 
the current dot with a line > 
if LASTDOT < DOTCOUNT then 

INC (LASTDOT); 
INC (DOTCOUNT) [ 

FINISHED := MAXDOTNUH = (DOTCOUNT - 1>; 
until FINISHED; 

GAMEOVER :■ not (CONTINUEGAKE) ; < Find out if another 

game required. > 



end 

else 

GAMEOVER 
until GAMEOVER; 
CLEARSCKEBN; 
if FILENO = then 



= TRUE; i No files present so abort > 
< GameOver will be false if so 

< No .PIC files present > 



VRITELN ('There must be at least one .PIC file on disk. ' ) ; 



end. <JOINDOTS) 



continued overleaf 
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Here is a good utility for 
you to put into all your 



In 



by John Carmichael 

The Listing: 



SUBR0UTI1 



programs which uses the date 
some form! 

What it does, it takes the 
system date (which is hMd i n 
the DATES coirraand) and turns- it 
into a formal looking date! T 

For example, when the 
DATE$="01/09/S7", ynu W ould 
assume it meant the 1st of 
September, but actually it says 
the 9th of January (American set 
up?. If you use this utility, 
the DATS which holds the 
information will say - 9th 
January, 1987. Nice and neat! 

All you need to do is put 
this in your program using the 
same line numbers and puting a 
GOSUB 600 at the begining of 
your program to get the DATS 
information. Then it Is no 
longer required (unless you 
change the date of course! ) 



570 
572 

% 574 
576 
578 
580 
582 
584 
586 
588 
590 
592 
S00 
<510 
620 
630 
040 
650 
060 
070 

4>- 



DATE CONVERSION Subroutine (gosub 600) 

Uses The system date in form MM/DD/YY or MM/DD/YYYY 

suitable for B-DOS or GV-BASIC's DATES 

eg DATE$="ll/21/37" — DATS=»21st November, 1987" 

exit: DAT* contains Date 

uses: D, Dl , DYS, D$, MS 



DATA January, February, March, April, May, June 

DATA July, August, September, October, November, December 

RESTORE 

FOR D=l TO VAL(DATES):READ MS: NEXT' Get month name into MS 
D=VAL<MIDSCDATES,4, 2) ) : D1 = VAL <MIDS (DATES. 5, 1)> 
DY£~MID*<" "+3TR$<D>,4,2) '2 letter DAY string 
D$="th":IF D>4 AND D<21 THEN 660 

nL? 1 ™ ™ EN D * =,,&t " ELSE i* W = 2 THEN Ds = »nd» ELSE IF Dl=3 THEN DS="rd» 

DATS=DYS+DS+" "+M$+", 19" +RIGHTS (DATES , 2 > 

RETURN 



DOT PLAY: continued from previous page 

Note; UPCASE is a function which returns a character in upper case 
which was either upper or lower case, 
eg. Vriteln (Upcase Ca')); will print a capital A. 

VrltGln <Upcase ('A')); will also print a capital A. 
If your version of Pascal doesn't support this try the following 

function UpCase CCh : Char) ; Char; 
begin 

if Ch in C 'a' . . 'z* ] then 

UpCase : = Chr <0rd <Ch> - 32> 
else 

UpCase := Ch; 
end; <UpCase> 

9 
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by Deon George- 



EDUCATIONAL 



The Listing: 

1 • ********** Ci'oss word puzzle *********** 

2 GOTO 10 »j 

3 SAVE "crosword", A 

10 SCREEN 0:VtDTH 40: KEY OFF: COLOR 15,0:CLS 

20 COLOR 1 , 15 

21 PALETTE 4,1: PALETTE 2,1: PALETTE 14,1: PALETTE 

22 A00=300: 

100 LOCATE 7, 10: PRINT" " 

110 LOCATE 8, 10: PRINT" " 

120 LOCATE 9,10: PR I NT" ; " 

130 LOCATE 10, 10: PRINT" H 

140 LOCATE 11, 10: PRINT" " 

150 LOCATE 12, 10: PRINT" " 

160 LOCATE 13, 10: PRINT" " 

170 LOCATE 14, 10: PRINT" " 

171 LOCATE 15, 10: PRINT" " 

160 COLOR 4: LOCATE 8,11: PRINT "P"j:FOR LOOP=l 
185 IF INKEY$=" " THEN A0O=l 

190 COLOR 4: LOCATE 9,12: PRINT "U";:FOR LOOP=l 

195 IF INKEYS=" " THEN A00=1 

200 COLOR 4: LOCATE 10, 13: PRINT "Z";:FOR LOOP=l 

205 IF INKEY$=" " THEN A00=1 

210 COLOR 4: LOCATE 11, 14: PRINT "Z" ; : FOR LOOP=l 

215 IF INKEY$=" " THEN A00=1 

220 COLOR 4: LOCATE 12, 15: PRINT "L";:FOR LOOP=l 

225 IF INKEY$=" « THEN A00=1 

230 COLOR 4: LOCATE 13, 16: PRINT "E"s:FOR LOOP=l 

235 IF INKEY$=" " THEN A00=1 

240 COLOR 2: LOCATE 10, 19: PRINT "M";:FOR L00P=1 

245 IF INKEYS=" » THEN A00=1 

250 COLOR 2: LOCATE 11, 18: PRINT "A";: FOR LOOP=l 

255 IF INKEYS=" " THEN AO0=l 

260 COLOR 2: LOCATE 12, 17: PRINT "K";:FOR LOOP=l 



Since this month had the 
theme of Educational Programs. 1 
wrote this program so you could 
make a word search puzzle and 
give It to your children, or 
even to a friend to solve! 

It seems a little long. but 
after typing it In, you should 
be pleaded how quickly It puts a 
list of words in a word search 
puzzle! 

It Is very simple to run. 
After l"t Is working, you are 
prompted to enter a question and 
tnon t.h*» answer. All the An^w^rc 
are sorted and then placed In 
the puzzle, and then the puzzle 
Is printed. The questions will 
appeaT at the bottom of the 
puzzle. 

You may have a solution 
printout if you wish. 

There are no special printer 
codes, so you should have no 
problem adapting it to any 

pi' lnt*r . 

A thought for improvement 

could be to write the puzzle to 
disk, so you can then have a few 
puzzles ready to be printed 
instead of making new ones every 
time. Also you could perhaps 
adapt it so you can find the 
words on the screen instead of a 
printout. Good luck! 



6, 1: PALETTE 5, 1 



TO 


A00; 


NEXT 


LOOP 


TO 


A0O: 


NEXT 


LOOP 


TO 


A0O: 


NEXT 


LOOP 


TO 


A0O; 


NEXT 


LOOP 


TO 


A0O 


NEXT 


LOOP 


TO 


A0O 


NEXT 


LOOP 


TO 


A0O 


NEXT 


LOOP 


TO 


A00 


NEXT 


LOOP 


TO 


A00 


NEXT 


LOOP 
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265 IF INKEY$=» « THEN A00=1 

Hi wSJ^P^KS" "*"«™ «»p-i to aoo = hbxt loop 

S c i?T H K^s^^ TE T „ 8 Hk 2 io p o R =i , ' T " B " i:F0R L00P=1 T0 "*"» "» 

S S'SASK'SA'SJK* " y " :;F0R L00p => ™ Aocnxx LOOP 

C i? L i R KK 6 E rS A 3 E T i^ 2 Io P o R =i BT " D " i:F0R L00P=1 TO ■»■«« «» 

lis s^y^ya-as" " e " ::FoR loop=i » "•■"« "Ka- 
liS ^I^H^^^k 25 .^^ "°" i:F0R L0 ° P=1 TO A °— "» 
335 ' O F L l5K 6 B V^ A " E T i 4 Ei, 2 A0 P R i NT " n " i!F ° R LOOP=1 T ° A °° iHEXT LO ° P 
IS ^T^^l^^Zl 1 ^ " G " i!F0R L0OP=1 WAO0..HT LOOP 

s fFnoas^Anas" "°" i:F0R loop=i to aoo;next loop 

XI «F L iSkIS^ E T 1 H 2 EN 27 A o P R ! HT " r " i!F0R L00P=1 T ° """» L0 ° P 
Vrl S^l^&'ISi" " 8 " ::F ° R L0 ° P=1 T ° A0 °= KEXT LOOP 

395 IF INS*="N" OR l NS $="n" THEN 1000 

4 00 IF IHSS="Y" OR INSS="y" THEN 405 ELSE 385 

*?? JOT ■ 80tC0 ^ R i^°o? L ?if| 1 ^ TAB<23);"Pu Z2 l e Maker !": PR IHT 

«; sis " chlldren which th i^ u ? r „To a j d is be to a s&s ss^r- 1 - for your 

"to 5 SSf ".nd A ti.^u-2r i :f B Sdi h ? £ C SfP 1 ,,t,r 2f? """J"" 10 ™ * f th « ►— *•. 

A^R prist »-,-u I r . wor <is if will contain and away you eo. It will 

440 ?! £ -StSTAFSrS an f then the answer to the v-S«ff The 

445 PRIST •• Wt rVthl Zjl I ££/ W ° rd SSarch pUZzle 8 oln 8 up, down, 
450 PRINT "„n2: ?k ** backwards. The questions will then be placed 
45? niR .. Underneath the P U2zle f ° r yo«r children to answer! P 

X! ppimt " " ther V* * W ° rd that the ca ™P«ter can't fit It, It will 
470 PR NT W J " /f? °" e ?* tW ° °P tlonB - » -tart over again 
475 PR HT 4LS ! T th * word and qu«*tlon away an d continue on. If this 
480 PRINT perSlStS X would «">»«• suggest bigger dimensions or less words! 

Ill PPFNT "!* iS ^w 8 ™"' 8 designed to be used with a printer, so if you 

483 PRINT »fK f°S fl 1 * B ? ° ne thG " P erha P B y° u oould send in a version 

4«J PRINT that doesn't need a printer!! 

485 PRINT "Press any key to start!"; 

490 INS*= INPUTS <1) 

1000 CLEAR 3000: WIDTH 80: COLOR 15,0:CLS 

Inin VSPtS 1 ' 1:PRIHT " D ° you want this to go to the printer?" ; ; PR*=IHPUTS CD 

£52 \l PR *-" n " OR *»«="*" THEN TV=80:PRINT" No" .-GOTO 1050 """ 

\nH - PRS= "y" OR PR$="Y" THEN PRINT"Yes":PR*="Y" ELSE 1010 

imm in " K ° W many columns d oes you printer have"; TV 

\r3-l. .5 » " D ° yau want ° solution print-out?"; : X$= INPUT* <1> 

1060 IF X$="n" OR X$="R" THEH PRINT "No" -GOTO 1080 

1070 IF X$="y" OR XS="Y" THEH PRINT "Yes" ELSE 1050 

1080 INPUT "What is the width of the puzzle" ; V: HD=V 

1090 IF V*2<=TW THEN 1110 

H?2 ^'f. 1 " That Wl11 not flt i«»" i TV; "columns.": GOTO 1080 
1110 IF W<1 THEN 1080 

1120 INPUT "The length" ;L: IF L>V THEN HD=L 

X130 IF L<1 THEH 1120 

1140 INPUT "Vhat is the maximum number of words in the puzzle" M 

1150 IF M>=2 THEN 1170 

1160 PRINT "Sorry, there must be at least two words! !": GOTO 1140 

1170 DIH AS(L.V), V*<H),QU$(M) 

5H ~ " 



1180 DIM V<K,3),DXY(8,2> ,DD<28> 

1190 PRINT "How enter a heading that will go over the puzzle:" 

1200 PRINT TAB<15);"<"; TV; "characters maximum! )" 

1210 input"", xys 

1220 CLS 

1230 PRINT "OK. . . Enter a word at each questions mark." 
1240 PRINT "To redo the previous word, type a hypen <->." 
1250 PRINT "When you run out of words, type a period C,>," 

1260 SCl=6:SC2=l:FOR 1=1 TO M 

1264 LOCATE 4,1: PRINT Ij" ": 

1265 LOCATE 4.5: INPUT "Please enter the question - maximum 60 characters! "; QUS < I 
> 

1270 LOCATE 4,1: PRINT "Next word" +SP ACES (70 >: LOCATE 4, 10: INPUT T$ 

1280 IF T$<>"- M THEN 1320 ELSE 1=1-1 

1290 SC2=SC2-16: IF SC2<1 THEN SC1=SC1-1 : SC2=64 

1300 LOCATE 4.1: PRINT "REDO ";V£<I)j". . . " j SPACE S <69) ;: LOCATE 4,11: 

1310 INPUT TS:GOTO 1280 

1320 IF TS="." THEN H= 1-1: GOTO 1600 

1330 IF LEN<TS)=0 THEN LOCATE 4,1:PRINT "Input error: REDO" ; SPACES (62 );: LOCATE 4 

. 19 

1340 IF LEN<TS)=0 THEN INPUT T$: GOTO 1280 ELSE J=l 

1350 TES=MID$(TS, J, 1): IF TE$=>"A" AND TES<="Z" THE3 1450 

1360 IF ASC<TES)>96 AND ASCCTESX123 THEN TES=CHRS <ASC(TES)-32) ELSE 1380 

1370 TS=LEFTS<TS, J-l )+TES+RIGHTS (TS, LEN<TS)-J ): GOTO 13*0 

1380 IF TBI<"A" OR TE$>"Z" THEN 1410 

1390 TS=LEFTS<TS, J-l) +CHRSCASC (KIDS <TS, J , 1 ) > ) +R1GHTS <T$ , LEN <TS>-J) 

1400 GOTO 1450 

1410 IF TE$=TS THEN T$="":GOTO 1330 

1420 IF J=LEN<T$) THEN TS=LEFTS<TS, J-l) : GOTO 1470 

1430 IF J=l THEN TS=RIGHTS <T$, LEN<TS>-1> : J=J-1 : GOTO 1450 

1440 T$=LEFT4<TS, J-1)+RIGHTS <TS» LEN<T$)-J> ; J=J-1 

1450 J=JHH:IF J<=LENCTS) THEN 1350 

1460 IF LEN<TS)>MD THEN 1530 

1470 FOR IZ=1 TO 1-1: IF V$<IZ)=T$ THEN 1550 

1480 NEXT 12 

1490 LOCATE SCI, SC2: PRINT "-" | TS; "-"; : SC2=SC2+16: FL=2 

1500 IF SC2>64 THEN SC1=SC1+-1 : SC2=1 

1510 IF LEN<T$)+FL>16 THEN SC=SC+16: FL=FL-16: GOTO 1510 

1520 GOTO 1570 

1530 LOCATE 4,1: PRINT "String to long: REDO" j SPACES (59) ;: LOCATE 4,21; INPUT TS 

1540 GOTO 1280 

1550 LOCATE 4,1:PRINT "Duplicate Entry: REDO" ; SPACES < 58) ;: LOCATE 4,22: INPUT TS 

1560 GOTO 1260 

1570 VS(I)=TS 

1580 NEXT I 

1590 REM 

1600 CLS: PRINT "Now let me ponder this!!" 

1610 FOR 1=1 TO M-l 

1620 FOR J=I+1 TO M 

1630 IF LEN(VSU)XLEN(VS(J)> THEN SWAP VS ( I ) , VS <J ) : SWAP QUS ( I ) , QU4 <J ) 

1640 NEXT J. I 

1650 FOR I-i TO 8:READ DXY < i , 1 J , DXY < 1 , 2) : NEXT 

1660 FOR 1 = 1 TO 28: READ DDU):NEXT 

1670 DATA 0,1,1,1,1,0,1,-1,0,-1,-1,-1,-1,0,-1,1 

1680 DATA 2, 4, 6, 8, 2, 4, 6, 8, 2, 4, 6, 8, 2, 4, 6, 8, 2, 4, 6, 8, 2, 4, 6, 8, 1,3, 5, 7 

1690 FOR 1=1 TO H 

1700 LN=LEN<V$<m 

1710 NT=0 

1720 SD=DD(INT(RND*28>+1) 

1730 SX=INT(RND*V)+1:X1=SX+CLN-1)*DXY<SD, 1) : IF XXI OR X1>V THEN 1720 

1740 SY=INT<RND*L) + 1;X1=SY+<LN-1)*DXY<SD,2) : IF XXI OR Xi>L THEN 1720 

1750 NT=NT+1:IF NTOV*L*2 THEN 1810 

1760 PRINT "Couldn't fit ' " ; VS (I ) ; " ' in the puzzle!" 

1770 PRINT "Do you want rae to start over" ;: AS= INPUTS (1 ) 

1780 IF AS="Y" OR A$=" y" THEN 1690 

1790 IF AS="N" OR AS="n" TrfEN 1800 ELSE 1770 

1800 VS< I)="":QU$<I)="": GOTO 1890 
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1810 J=SY: K=SX 

1820 FOR P=l TO LIT 

1830 IF LEN<AS<J,K)> AMD A* (J , K) <>«ID$ <VS CI > , P, 1) THEN 1720 

1840 J=J+DXx<SD,2>:K«K>DXYCSD.l):NBXT P 

1850 J-SY: K=SX 

I860 FOR P=l TO LN: A$<J I K>=MIDS<V$(I).P,1) 

1870 J=J+DXT<SD,2): K=K+UXi<SD, 1>:NEXT P 

1830 V<1, 1)=SX: V<I,2>=SY: V<I,3>=SD 

1090 NEXT 1 

1900 FOR 1=1 TO L 

1910 FOR J=l TO V 

1920 IF AS<:,J>=»» THEN AS C I , J > =CHR$ < INT <RND*26) +65) 

1930 NEXT J , I 

1940 FOR 1=1 TO M-1:F0R J=l+1 TO K 

I960 IF W$(I;<=V$(J) THEN 1980 

1900 SWAP W$(I> r W$(J) 

1970 FOR K=l TO 3: SWAP V< I . K) , W<J . K) : NEXT K 
1980 NEXT J, 1 

onna pd^ht i,?° W ""*? CQ P les of this P«zzle would you lUce";K 

on?n Inll , ™ 2**^! °° Py ' hit return *° begin printing..." 
2010 FOR C=l TO N:GOSUB 2020: NEXT C:GOTO 2300 

2020 FRTNT FM$; : INPUT AS: PRINT: PR$=LEFT$ <FR* I) 

2030 PMS="HIt enter to continue!" 

2040 T= <TV-2*V?/2; CLSi FR= <FR$ = "Y" ) : TS= C50-2*W) /2 

20^0 lb- PR THEN LPRINT 

2060 PRINT: IF PR THEN LPRINT 

2070 CLS:FRINT TAB < (80-LEN <XY$> )/2) ; XYfi 

2080 IF PR THEN LPRINT TAB C (TV-LEN<XY$5 )/2 ) ; XY$ 

2090 PRINT: PRINT: IF PR THEN LPRINT: LPRINT • 

ii?X Inl l = \ IS tV PRINT TAB<TS);:IF FR THEN LFRINT TAB<TS5; 

2110 FOR K=l TO V: IF ASU.KKV." THEN 2140 

2120 PRINT '\ ";:IF PR THEN LPRINT ". " : 

2130 GOTO 2150 

2140 PRINT A$<J,K>;" ";:IF PR THEN LPRINT AS(J I K);" "; 

2150 NEXT K: PRINT: IF PR THEN LPRINT 

2160 NEXT J 

2170 PRINT: PRINT: IF PR THEN LPRINT: LFRINT 

2180 POO: FBI NT "Find the answers to these questions in the puzzle!" 

2190 IF PR THEN LPRINT -Find the answers to these questions in the puzzle!" 

2200 PRINT: IF PR THEN LPPINT V 

2210 FOR J = l TO M: IF LEK<VS(J))=0 THEN 2270 

2220 IF F0+IFNCV*C_m>78 THEN PRINT; PO=0 

2230 IF PR THEN IF PO+LEN CVS < J ) ) >TV-2 THEN LPRINT: PO=0 

el™ C^<V7> ,^t- > J ? * STR £ 1? °* <t ' EH CW * <J X 5 .".»>» IB PR THEN LPRINT QU$ CJ ); STRINGS 

2250 P0=P0+16 

2260 REM 

2270 NEXT J : PR I NT: FR I NT : PRINT: PRINT 

2280 IF PR THEN LPR INT: LPRINT: LPRINT: LPRINT 

2290 RETURN 

2300 IF LEFTS (Xfc, 1 > -» y» OR LEFT* <X* , 1 ) ="y" THE* 2320 

G'J 1U 

2320 REK 

2330 FOR 1 = 1 TO L: FOR J = l.TO W: A$ < I , J >=","• NEXT J I 
2340 FOR 1=1 TO M 

2350 LN=LEN<V$(I )) : J=WCI,2) : K=V ( I 1) 

2360 FOR P=l TO LN 

5370 AS(J,K>=KID$(Vt<I> l P, lj 

2380 J=J+DXY<Va,3>,2>:K=K + DXY<VCI,3>,l) : NEXT P 
2390 NEXT I 

2400 XYS="Here is the answer key!" 

2410 GOSUB 2020 

2420 PRINT: PRINT 

2430 END 
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TRANSAREA 

If you have been pricing ©one 
parts for your computer, have 
you talked to Transarea LTD? 

They are a Kong Kong based 
company which specialise In 

nanufBctorlng a wide range of PC 
systems and Adapter cards for 
computers. 

They carry everything fraU 
printers, to harddisks, and 

monitors to Data termlals. 

All their products are under 
strict quality control and their 
reliable performance has won 
them a reputation. 

Their address is: 

King Hung Commercial Building 

4/F, 

194-196 Queen's Road Central 

Hong Kong 



NEW TO 
GOLDLINK 

Micro-Educational has Just 
ratju^d over to GOLDL1HK1 See page 
*64209#t 

if you have been looking for 
something lor your computer and 
you can't find It, give them a 
call! 

They have thLngs llke:- 

Mnestro modems starting at 
S179, monitors for S1Q9 and 

pi Inters starting at 1500 and 
many, many, more goodies. Call 
them on <00e> 02 5229 or Viatel 
*6420Q* 

One bargain they do have Is 
their disk box which stares 50 
disks. It has a perspex lid 
<whlch Is removable) , removable 
key and 4 dividers for S20! 



COMPUTER FREESOFT 

SECURITY 

AT LAST 



DATA 
SPECTRUM 

If you are looking for 

hardware bits for you computer, 
like printer cables, disks and 
cabinets, Data Spectrum are 

probably a good place to start 
looking. 

They have everything from 
ewltchos for enrial and paroliel 
printers, connecting two 

computers to the one printer or 
vlca-versa. Or computers to 
modems or whatever you need, 
they probably have the required 

pai t! 

If you need any printer 
stands, or trays, Data Spectrum 
will also be able to help you 
there! 

Another good Item worth 

looking at are the picture disks 
which they can make up lor you. 
Imagine having your computer 
logo on the disk or on the disk 
sleeve! Or if you are Just after 
coloured disks. they ha«-e blue, 
red, yellow, green, grey, white 
and black! 



harddis* 



ENTREE has 

protect your 

unauthorised 
a twofold 



Exasoft computer systems have 
some software which may be of 
interest to all you 
owners . 

A package called 
been designed bo 
Hard Disk from 
access - 

It comprises 

security access by password and 
the ability to hide files and 
directories on the disk. A DOS 
commands help facility Is 

included which would be helpful 
to the amateur computer user. 

There 13 also a preset option 
to back-up and restore files. 
There are 16 passwords and &0 
menu items available. 

Another good piece cf 

software for all the 

wordprocessor type people out 
there is ZIP- This is a 'popup* 
program which will put postcodes 
In your documents. Ro more 

hassling for the postcode book*; 



KEEPING UP 
TO DATE 

Are you sick of looking for 
your diary, and can't find it? 
Well 19 Smart software (formally 
ISQ) are selling a program 
called PORTEX which looks pretty 
good! 

It can be your diary, an 
address book for filing and 
printing names and it also has 
Word Processing with an 80,030 
word spell checker! 

Help careens are available at 
the touch of a button. 

Portex comes complete with a 
leather pocket sized ring binder 
with section dividers, a handy 
function template and a 

comprehensive user manual for 
the novice or expert. 



in this months issue, there 
is on advertisement for 

FREESOFT. 

Freesoft have a huge library 
of Public Domain software for 
your Tandy 100Q or your IBM 
compa t Ible. 

Ve have received a, number of 
programs far review and they 
will appear in next month's 

issue. 

Freesoft have everything from 
Utilities. to applications to 
Games. Foi example: 

PIANOMAK - A user supported 
program for playing, recording 
and editing muslo. 

HOME FINANCE - A complete 
home finance management system. 

K1D*S VORDFR0CESSOR - Vord 
processing for kids (we have 
this one for review! > 

DISK LABLEHAKER - Makes 
diskette labels for your disks. 

and many, many more! The best 
part of it all is that the disks 
are only S12 Instead of paying 
1100's for the similar product 
on the market! 

KIWI 
VIDEOTEX 

Videotex In New Zealand is 
booming and has doubled its 

number of users In the last 12 
months! 

VIANZ (Video Industry 

Association of NW 2waland) have 

over 10,000 users and 70 

different services available in 

their second year of service. 

There are over 120,000 calls per 

month compared to 60,000 calls 

per month for the same time last 

year. The service approaches one 

million minutes of connect time? 

Since the system is still 

new, the general crowd are 

connected to It mainly for 

Information material which 

accounts for 50% of the use, on 

line data processing 20% of use, 

reservations for accomodation 

has 15% of use and communication 

services accounting for the last 

10% of use. 
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Veil possums!! I've just been doing a few 
turns on ray broomstick and I couldn't help but 
notice all that electronic trash you reere 
mortals seen to be hanging on to. Just like a 
lot of little bower birds, aren't we!! gramrara! | 

If any of you darling little pussums would 
like to swap that Junk for cash then why not 
place your ad here, 

We'll run your ad for a month or so - and 
remember possums, let us know If your Junk sells 
so wg can adjust our records - and you never 
know, you just might be able to make enough money 
to purchase a super turbo charged "stick" like 
mine. 



harg< 
And possums - do It - now! 



Kartha. 



Wanted to buy 

Sep 87 

Any voice/sounoVspeech pack with any associated 
software, or an az supplier. 

To be used to develop programs for a blind 

pensioner. 

Back copies of Oz R/bow: Jan' 83, Iov*82 
Apr-5ep'e2, JanaiFeb'eg, July-Kov'81 

2nd hand modem suitable to use Tiatel, Stars 
etc. Must have software a cables If possible. 

"Startrader" grafics space adventure game. Tape, 
disk or oz supplier of saae, circa '84<?), 

Tom. McCoy, 
C/- P.O. 

Vniawarrin, JISV 2440. 
Phone: (065) 671392 

*** 

Sep '87 

S make an offer: Digitizer (prefer model 
no.DSGQl from Micro Works, but any other nodel 
will do). 

Ring Halcola Patrick on 086-457-637 



For Sale: 

Sep '87 

S175: BEC Twin disk drives, modal PC8023B with 
controller and both RS-DOS and RB-1.4 chips. 

«100: Grey case 64k ECS CoCo, JUL keyboard, 
composite video-audio card and power-on LED 
fitted, (original keyboard included.) 

a 50; CCR-81 cassette recorder 

* 40: the lot, various tapes. Includes Raaka-tu 
(with manual) , Colour Computer Learning Laboratory 
(with manual) Robin Brown's Convert (converts from 
FKDDE 4 to PHODE 3 colour, include Zaxxon demo), 
CoCo-Oz on Tape and lots of other stuff. 17 tapes 
altogether, although tapes can be bought 
separately. 



* 30: each, original software: Telewriter-64 
tape/disk, Dynacalc disk, Pro-colour-file disk, 
VIP database disk. All with manuals. 

t 25: Two tandy btandard Joysticks with leads and 
one deluxe Joystick. 

» 25: the lot. "Your Colour Computer", by Doug 
Kosher. "Help" CoCo reference, 21 American Rainbow 
magazines. 

All of the above can be bought separately or the 
whole lot for S500. If the prices are aore than 
you can afford, then make an offer. 

Ring Barry Carle on (03>-555-8969 

*** 

Sep '87 

*25C: Double sided disk drive + disk full of 
games. Good condition, controller included. Price 
negotiable. 

RiiW Sean Murdoch on 047-749-291 or write to me 
at pa Box 5, Bringelly. 2171. 

tt* 

Sep '87 

*450; 1 pair TEAC 40 track double-elded drives. 
no DOS. 

Urgent sale! I Call Arthur Slade on 02-674-5620 
or Viatel 262289400 



*** 



Sep '87 

$ 60: MC-10 20K RAM expansion. 

Var lous Games for CoCo 1/2 
S 15: Draconian, Speed Racer, Electron 
S 12: Moonshuttle, Flying Tigers, Colourpede, 
Spacerace 

S 10: Cosmic Clones 
* 8: Miss Hlbbler. 



Phone Darren on 066-741944 



continued 
next page 
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•£x&o:v: 







'■<<<• 



ELECTRONICS 



(Formerly Dayue U Tremb»th) 



Best prices availal>lc on all 
Tandy 'computers and accessories. 

Free delivery to 

anywhere in Australia. 

All major credit cards welcome. 




MARTHA'S Trading Post 



Sep '87 

*160: DHP105 printer, In original box, * 2 extra 

printer ribbons. 

$150: CoCo 2 18k ECB, In original box. 

S100: Multlpak interface + ■aiiual, all in 
original box. 

Phone Trevor on 02-605-2059, or write to Trevor 
Kitchens, 

PO Box 70, Glenfield, 21$7 



M* 



Oct '87 



* 25 
% 70 

S200 
4280 



Kuslca II 

(.ono) OS-9 Pascal Conpller 

<ono) DHP-100: excellent condition 

<ono> Avtek alnl-nodea k software for CoCo III 



D k T Electronics 

Shop B 1451 Ncpeaii Hwy. Rosebud 3939 

(059) 86-3134 AH (059) 85-4947 






COLOUR 
5i DISKETTES 



Available in Lavender, Dark Blue 

Light Blue, Grey, Beige, Pink, Yellow 
White, Orange, Red, Burgundy, Black 
Brown and Green. 

TOP QUALITY CENTECH BRAND 
with LIFETIME WARRANTY 

SOLVE the problem of trying to 
locate your programs.... 

COLOUR CODING MAKES IT EASIER! 



SSDD $23.50 for 10 

DSDD $25.00 for 10 

(postage free) 
Please state colours required 



<:■•■ 
:•:■: 

:■•■•: 



Hi 



Please write to Stephen Farrell, 

4/184 Donnelly St, 

Aroidale, 2350 
or call C007) 720002 

ttt 



for Sole - *160 OKO: CoCo2 B type. 
Contact John Poxon on phone 07 2087820. 



* 

* 
* 

* 
* 

¥ 
¥ 

* 

¥ 
¥ 

¥ 
¥ 
¥ 
¥ 
¥ 



$elneto $tp. Xtb. 

Authoriaed distributor of Amtron Australia Products 



* 
I 



JANDA (AUS) 
P.O. BOX 239 
MARYBOROUGH Q 4650 

10G NEPTUNE STREET (071) 23 1369 * 



*Flat Ribbon Cable and Connectors 

*D Sub Connectors 

♦Full Range of Amphenol Connectors 

♦Cable Assemblies 

♦Circular Connectors 

♦IC Sockets and Headers 

♦Edge Connectors 

♦Custom Cablfes 

♦Military Connectors 

♦RF connectors 

♦Racking Systems 



- NEXT DAY SHIPPING 

- WHOLESALE PRICES 

- DEALER ENQUIRIES WELCOME 

PHONE: (02) 689 3327 
FAX: (02) 891 2349 SUITE 2. LEVEL 2 

P.O. BOX 1110. 93 PHILLIP STREET, 

PARRAMATTA. N.S.W. 2150 PARRAMATTA, N.S.W. 2150 
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GOLDSOFT 



P.O. BOX-..1742, SOUTHPORT. QLD. 4215 Phone (075) 39-6177 

So ' dso{t prlca Llst aa at aasa "* 7 



HARDVARB 

CoCoConneellon: 1210. 03 ( > 

Video Amp: Vith sound - »35. 00 < ) 
x. - Vllhout sound - »23. 00 < ) 
iha Probe. S49.Q3 < ) 

COLDLIMK 

Access Gol-dllnk *042* on Viatel with 
• i2oo/7 5 baud TOde „. Aftnuftl ESril&mi 



SOFTVARB 

Magazines, Tape* & Disks 

c AuBtrall 8 n oo CMmtMd rro B r B „, tor j„» r 
Magazines: t.«- , * 

X Month 1 4. SO < ) l Month . 10i5 o ( ) 
1 Month * 4.50 ( > a „ onth $ |0>5o ( 



Gold Disk - Available Quarterly) 

# 1 - *16.00 < ) 
1 2 - »16.0O c ) 

# 3 - »16.00 « ) 

# 4 - S13.00 < > 

' 5 - Coning Soon Ml 



The CoCo3 Tape/Disk: 

»2 - Tap*: MO. 00 ( > 

*"J - Tape: HO. 00 < ) 

*4 - Tape: M0, GO * ) 



"Say the Voi d= 
Two 



Disk: MO.00 < i 
Disk: 110.00 < > 
Dlek: S10.00 ( ) 



Two Curriculum baa-d speller programs 
your Tandy rp*nchVSou., u pack! * Z 9 03 
Rsq: 32K * Tandy Speech Pack < ) ' 



for 



Post of CoCoOz - SIS. 00 

rJ €l t Ctl ° ft ° f Programs from Austral Un 
CoCo Magazine. 

Tapei 

C ) 

< ) 

< > 
( > 

< ) 

< > 
( > 

< > 

< > 

< ) 
H/A 





* l 


- Education: 




* 2.1 


- Cane© 16K: 




* 2.2 


- Gams* 32K: 




* 4 


- Buelneee i 




# 5 


- Adventure: 




* O 


- Preschool 




# 7 


* Graphics i 




* 8 


- Canes 10K: 




f o 


- GamAs 32K 




#10 


- Education: 


R4 


#11 


- Education: 



BRIC-A-BRAC 

ni«nk Tapeai 12 • 41*. oo < > 

* C " 30J I t » 2.00 ( ) 

Tips caseoi 12 C * 5.00 < ) 

Dl^k DSDDi lo e »20.00 ( > 

X t » 2.30 < ) 

BOOKS 

Help (for your CoCo) i * O.S5 t > 
Mlco Kelp (lor your MC - I ' i S 9, 93 ( ) 

BACK ISSUES 
Anotral Un CoCo. S, p 04 - Deo B3t %2 . 00 < ) 

Australia., CoCo. Jan 60 - F.b 87l *3 . 73 C ) 
Australian HIcoi Aug 04 - Deo 83. S2.00 C ) 



ADDITIONAL RBQUIRBMBrlTS 



Hew Subscription. < ) Renewal < ) 
Sub Mot ..,,.,. 



Nanoi . . . 

Ad'Ji egai 



P/Code. 



Phorie <...) 



Please Mnd enclossdi 
»■ Cheque. < > 

b. Money Ordert < > 

c. Credit csrd. < ) 

Credit Card Type a Hunber: 

tlankcard C >i -...,.. 

Mastercard C >i.,,,,,.- 

Vtea c ), 

Bxplry Date. ...... ,/10. . . 

Author lsid Amount: % 

Signed. 



*>'+*>/ 



(Stuji UUvrin HUllll'I'lll — lj.ll. i l-«- 

*.h.\ lint, liyphrn between = liolh) 



ACT; 
CANBERRA HTH 
CANB6RPA STH 

RSW, 
SYDNEY; 

BANK^'lUUM 
BLACK TOWN 
CARLtNGFORU 

cHArsvoao 

COLYTOB 

FAIPFIPLD 

GLADESVILLH 

BILLS DI8I 

HORHSBV 

INGLEBURN 

Kf-NHMIPST 

LE1C1IHAPDT 

01 
MVKPPQUL 



JOHN BURGER 002 30 3024 
LBS THUBBOi 002 8* 0230 



PAI DC1RSBTT 02 64« 3810 
KSIIH GALLAGHER 02-027-4027 
POGCa HCKAT 02 024 3303 
BILL OTONVELL 02 419 0061 
HRRHAI FRBORIKSSQN 02 623 0370 
ARTH FITTAPO 02 72 2661 
NARK ROTHWBLL 02 SI? 402? 
ARTHUR BLADB 02 07 4 3020 
UHALtR SHAPr 02 046 0030 
STEPHEN RIKBVAV 02 005 7382 
TDK STUART 02 094 2170 
OTRVEH CHIC03 02 560 6207 
GORGE ECItEGARAT 02 500 0603 
LEONIE DUGOAB 02-007-3791 
NAC3«ARIB FIELDS BARRY DABBTOi 02 018 1909 



nivm 
SUTHERLAND 
SYDNEY BAST 

ALBURY 

APHthALB 

BLAXLAND 

BROKEN HILL 

CAHUBN 

COFFS HARBOUR 

COOHA 

COORARflORG 

COOT All UN DBA 

DENILIQUIH 

DUBBO 

FORRFS 

GOSFORO 

nRAFTDR 

OUYRA 

JUNBE 

► BKI'SEY 

LEETOH 

LI SHORE 

LITHOOV 

HA t T LAUD 

HOPEB 

NAHB'.ICCA HDS 

NARRORINH 

NEWCASTLE 

RUVRA 

FARKFS 

TORT HACQUAP1H 

EPRIRGVOOD 

T All HOOP 

UPPER HUNTER 

URALLA 

VAGOA VAGOA 

VYOHG 

RT: 
DARVIR 



QLD! 

BRISBANE: 
BIVUDALB 
CANNON HILL 
CLAVFIELD 
COLL' WOOD PH 
IPSWICH 
PINH RIVERS 
B01ITH 
SOUTH VEST 
SCARBOROUGH 



riHAHAN FOLLOCK 02 0O3 5020 

IAN ANNABEL 02 526 3391 

JACKY COCKIN05 02 34 4 0111 

BOB BURCAB 060 43 1031 

DOUG BARBER 007 72 7047 

BRUCE 5ULL1VAB 047 30 3903 

TERRY HOOMAR 080 80 236? 

SEAN HUPDOCH 047 74 6291 

POB KENNY 060 3)1 2205 

ROSS PRATT 064 « 3003 

GEOROB SAYAGB 047 77 1034 

U1ERYLE WILLIS 069 42 2204 

WAYNE FATIBFSOB 036 61 3014 

GPAENB CLARKB 000 59 0549 

IDHANHA VAfUl n-.F. •-,- ?q,i-| 

PETER 5BIFERT. 043 32 7674 

TFTEP LINDSAY 000 42 2303 

HICIIAEL J, HARTMAMI 007 79 7547 

PAUL HALOHEX 069 24 I860 

RICK PULLER 065-62-7222 

BFEII WALLACE 069-53-2081 

BOB MILLARD 006 24 3030 

RAVI 3 B5RGER 063 52 2282 

BILL SNOW 040 06 2357 

ALP BATB 007 52 246? 

WENDY PEIBRSUB 065 00 0723 

GRAERB CLARKB 006 89 0549 

LYR DAWSON 049 49 8144 

POT LOPEZ 044 40 5449 

DAVID SHALL 006 02 2082 

POM LALOR 063 C2 2002 

J IK HOrPITT 047 54 1474 

CARY SILVESTER 046 fit 0318 

TERRY GRAVOL1B 005 43 1096 

FRANK HUDFORD 00? 78 439: 

CES JBBKINSON 009 23 2203 

IOHI WALLACE 043 90 0312 



DtBITOI PRIOR 0iJQ.Ol.77W 



COLIN B0P1H 

ROSFHARY LITZOW 

JACK FRICXER 

ANDREW SIHPSOB 

HICK KUPPHY 

BARRY CLARKE 

JOHN POXON 

BOB DEVPIBS 

PETBR NAY 



0? 81! 4 3 138 

07 3Q3 0603 
07 202 6800 
07 260 5206 
07 271 177? 
07 2 04 2800 
07 208 7620 
07 3?2 T616 
07 203 6723 



A 1 PL IB BEACH 
BtGGENDER 
BOW BR 
B'JNI'ABBRG 
CAIRNS 
DAL BY 
GLADS 10HE 
GOLD COAST 

GYHFIE 

I1EHVEY BAY 

H AC KAY 

HABYBOROUGH 

MT ISA 

4UR0OI 

pgckhanpton 

TAP A 

icovoqkba 
tovnsv i lle 



GLEN BVARS 070 46 1204 

ALAN KBRHAH 0?1 2? 1272 

TEPRY COTTOB C/O 077 06 2220 

ROB EIHRBIB 071 t\ 5301 

JEFP LARSEN U70 54 7127 

DERRICK TARSKY 074.62 3220 

CARCL CATHCAPI 070 76 3594 

ORAHAH BORPHBII 0?5 51 0577 

BBPT LLOYD 071 6210100 

LESLRY HOBVOOD 071 22 4989 

LEB HALOBEY 07951 1333*762 

JOHH EFFER 071 21 6036 

JACK PAB 077 43 3466 

PBTHR ABOEL 071 60 1028 

KEIP.AN SIRPSOB 079 20 6102 

DPBBtE DORF1PLD 074 63 317T 

I.EN GBRSBKQWSKI 070 35 0204 

IOH" O'CALLAOHAB 077 73 2064 



SAi 
AI'FLAIDE 

FORI NOARHJCOA 
SBACOH.BH HIS 
PG HI LINCOLN 
PORT PIR1B 
WHYALLA 

TAS; 
DBVUBPORT 
HOBARI 
KCNG6T0R 
LAUBLESrOB 
SMITHIOR 
WVNTARD 

HFLBOURMB' 

HELDOUPBE CCC 
DABDEROBQ 
DQKCASIEH 
FRANKS TON 
NAPPE WAPREB 
NIK EASIEPR 



JOHN HA | RES 9* 2?6 3500 

ROD DALZOLL OS 30© 1047 

GLENN DAVIS 08 290 7477 

BILL BOARDHAN 000 82 2303 

VIC KRAUEPHASE 086 32 1230 

KALCOLH PATRICK 006 45 7637 



JEFF BEST 04 24 0759 

BOB DELBOURGO O02 25 3890 

VI H DB PUIT 02 29 4950 

BILL BOWER O03 44 1584 

IIAHRT CHPISAFIG 004-52-1590 

ANDREW VYLL1E 0)04 33 1639 



I.-S LB15HKAR 
DAVID H0RP0CK5 
JUSTIN LIPTON 
BOB HAYIEB 
LEIGH EAHES 
PBTBR WOOD 
H'TQR FRRNIRSULA GORDON CHASE 



HELIOR 

I'AKEHIIAH 

R t NGWOOD 

SUNBURY 

SUNSHIBB 

UFR F-TREB GLT 
BAlPNKDALR 
BALLARAT 
OAYLESFORD 
OE BLOBS 
NAFFRA 
ROB 

HORBINQTOB 
NOPWELL 
SHEPPAR10N 
SHYTHEJJDALH 
SVAB HILL 
TDNGALA 
tPARALGOB 
VONTHAGCI 

WA. 

PERTH 

QIPRAVHEEN 
K.ALGQORLIB 



KAPIO GFRADA 

JASOK BALL 

IVOR DAV1ES 

JACK SHIT 

1AH BUTTRISS 

RORT 1UYLE 

CCLIR LRHNANB 

HARK BEVBLABDEB 

DABBY HEDJI 

CAVID COLLEB 

RAX HUCKERBY 

JOSEPH HESTER 

MICHAEL HOVCK 



03 484 
03 ?07 
03 657 
03.783 
03 ?04 
03 433 
059 71 
03 743 
059 41 
03 756 
03. 744 
03 314 
03 750 

031 5? 
033 32 
054 24 

032 43 
051 45 
051 27 
03 789 



JBPF SllfiEN 051 33 

BOSS PARRAN 058 25 

TOBY PATTERSON 053 42 

BAPRIE GERRABD 030.32 

TOBY HILL IS 038 59 

LBIGH DAWES 031 74 

LOIS O' HBAPA 050 72 



0622 
5079 
5149 
9748 
0000 
2018 
1553 
1323 
1398 
4490 
1355 
8242 
2671 
1543 
6?33 
8329 
2128 
4315 
7817 
7997 
0904 
10O7 
8815 
.2830 
2251 
3552 
1393 



IAIN HACLEOD 09 446 2136 

HAftK WILL8HSER 09 342 7639 

TBRRT BURIBTT 090.21.5212 



CANADA - CoCoi 
Oh Lai la Fi.:Mrd Uatason 418 293 2340 

Toronto Franz L Ichlanbarg 4 16 845 2889 









interest 
groups 



UAtHEFS' IBI BREST 


QROUP 








SYDNEY WEST 




ROGER RUIHEB 


047.39. 


3V93 


BRISBANE 




BOH HORNB 


07 


2S1 


B15L 


WYOBG 
QLD: 
BRISBANE 




JOHN WALLACE 


04 3 90 


0312 


BUSINEG3; 




















URI/.UU BRIAR 


BERE-STRBETER 


07 


340 


4699 


BORIH 




DRIAB DOU0A1 


07 30 


2072 














SOUIH 




EARRY CAWLBY 


07 390 


7940 


OS9 G POUPS i 












GOLD COAST 




GRAHAH HORPHSIT 


075 51 


0577 


NAIIOMAL 0S9 USERS* GROUP 








SA 














■1RAFNE NICHOLS 


02 


431 


203* 


PORT LINCOLN 




HtLL EOAPDNAN 


C86 82 


2365 


RSW 












VIC: 










SYDNEY 












LA IROBE VALLEY 


PETER FOLEY 


051 74 


3791 


BA.HKSTOV0 




CARL SIERN 


02 


646 


3619. 


HELEOVFRE 




TOBY LLOYD 


03 862 


4664 


CAPLINGFORD 




KOSKO RLKAY 


M 


024 


3353 












GLADBSVILLB 




NARK ROTHWBLL 


02 


817 


462? 


PORTHt 










SYDNEY EAST 




IACKY COCKINOS 


03 


34 4 


0111 


SYDNEY 




iOHB PEDNOND 


02 63 


3731 


COOHA 




ROSS PRATT 


004 « 


3 06* 












OLD 












ROBOT ICSi 










RRISBANE 




JACK FRICKEP 


0? 


262 


8869 


GOLD COAST 




GPAIIAH HORPHBTT 


073 51 


0377 


VIC 












SYDNEY 




GEOFF PI ALA 


02 84 


3172 


LATP.OBE VLY 




OEOPGE FRANCIS 


051 ; 


3173 












WA 












CHRISTIAN USERS' 


GROUP: 






KALGOOPLIE 




IERRY B'JRHETT 


090. 21 


5212 


COLL IB 




RATROND L. ISAAC 


097 34 


1576 


N',- 10 cunrAciS: 












HSX 










LISNL'PB 




BOB HILLARD 


060 2 


3089 


FRANKSTON 




ALAR HASSELL 


03 786 


0290 


SYDNEY 




GPAHAH POLLOCK 


02 


603 


302 3 
























MODEL RAILWAY 


CLUBS 






TANDY 1000 / HS 
NSW; 
•iLAI'EGViLUB 


DOS: 








BRRBIFIQH 




DA* ID PHILLIPS 


07 807 


2003 




HARK ROTHVE1.L 


02 


617 


467? 














cam. simian bqe 



ON 



tt/lATEL 

AUSTRAVIAS hAHONAl V'MOTE* SERVICE 



